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Introduction 





These two programs will do the same thing: 


10 LET a=0 10 FOR a=1 TO 5 
15 INK 2 15 PRINT INK 25 "This way" 
20 PRINT TAB 165 "This wary" 20 NEXT a 


25 LET a=atl 
30 IF aS THEN STOP 
35 GO TO 20 


And so will these: 


10 LET x=127:LET y=87 10 LET x=127:LET y=87 

iS PLOT xsy iS PLOT * er 

20 IF INKEY$="" THEN GO TO 20 20 IF INKEYS$="" THEN GO TO 20 
29 LET BS=INKEYS$ 23 LET bBS=INKEYS 

30 IF b$="5" THEN LET x=x-1l 30 LET x=x+(b$="68")-(b$="5") 
35 IF b$="6" THEN LET y=y-1 39 LET veyt+(b$="7")-(bS="6") 
HU IF bS=*7" THEN LET yeyti 4O LET x=x+(x= -1)-(x=256) 
45 IF bS="G" THEN LET x=x+1 45 LET y=y+(y= -1)-(y¥=176) 
90 IF x>255 THEN LET x=255 50 GO TO 15 


99 IF KSO THEN LET x=0 

GO IF v>175 THEN LET v2=175 
GS IF v<O THEN LET y=0 

70 GO TO 49 
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On the other hand, neither of these programs will work the way you would 
expect it to: 


10 PRINT TAB 125 "Center" 
20 PRINT AT O+2s"Left"s TAB 2535 "Right" 


10 LET A=S:LET a=7 
20 PRINT Asa 


And this one won’t work at all: 


10 IF INKEY$=""THEN GO TO 10:LET bS=INKEYS 
20 PRINT b$ 


As you can see, knowledge of the “‘finer points” of T/S BASIC can save you 
a lot of time, effort, and frustration when you are writing a program. 

Some of the finer points presented in this book are just minor variations of 
the techniques explained in your user’s manual. Some are techniques, and even 
commands, that are not mentioned in the manual at all. All are methods that 
contribute to easier and better programming. 

The first chapter of this book is a collection of tips that, though minor in 
themselves, can add up to some major improvements in your programs. The 
remaining chapters cover, in depth, programming techniques and concepts that 
will help you get the most out of your T/S. 

You should already be familiar with the basics of programming (loops, 
IF-THEN statements, subroutines, variables, and so on) and the specifics of T/S 
2068 operation (one-key commands, graphics mode, and extended mode, for 
example) before you work with this book. 

Most of the material in this book is arranged sequentially, with later chapters 
drawing on previously presented information; the section on trigonometric 
functions in Chapter 6 can safely be skipped altogether, but the rest of the 
material should be covered in the order in which it is presented. 

Except where a more thorough explanation is called for, repetition of 
material presented in the user’s manual is kept to a minimum. 





Basics Plus 


PRINT POSITION 


Knowing the ins and outs of screen formatting will help you make your program 
displays more attractive and easier to read. 


Print 


The print position, which controls where the next character is to be printed, is 
automatically positioned in the upper left corner of the screen at the beginning 
of a program. There are 22 printable lines on the screen, each with 32 columns. 
Line and column numbering begins at 0, so the lines are numbered 0 through 21 
and the columns 0 through 31. The print position begins at line 0, column 0. 

The print position automatically changes when a PRINT command is used. 
As soon as the specified item is printed, the print position goes immediately to 
the beginning of the next line. Even if the PRINT command calls for no item to 
be printed, the print position moves. That is why 


PRINT 1:PRINT:PRINT 2 


will print a blank line between the two numbers. 
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Commas, apostrophes, and semicolons can be used to alter the usual print 
positioning. 


Comma 


A comma moves the print position halfway across the screen, to column 16. If 
the print position is already in the right half of the screen, a comma moves it to 
column 0 at the beginning of the next line. 

The comma can be used between items in a PRINT statement, after a single 
item ina PRINT statement, or even between the PRINT command and the item 
to be printed. 

This program makes good use of the comma for screen formatting: 


10 PRINT "Odd" s"Even" 
15 PRINT 

20 FOR a=1 TO 30 

29 PRINT a» 

30 NEAT a 


The comma in line 10 separates the two headings. The “empty” print command 
in line 15 moves the print position down an extra line so there will be a space 
between the headings and the numbers. The FOR-NEXT loop prints out num- 
bers from 1 to 30. Because the comma in line 25 alternately moves the print 
position to column 16 and column 0 of the next line, the numbers are printed in 
two columns under the proper headings. 

You can print a column down the center of the screen by putting the comma 
between the PRINT command and the item to be printed: 


10 FOR a=1 TO 10 
15 PRINT +a 
20 NEXT a 


Although “PRINT TAB 16;a” in line 15 would give the same result, the comma 
is easier to use. 


Apostrophe 


The apostrophe sends the print position to the beginning of the next line. Like 
the comma, it can be placed between print items, or before or after a print item. 


BASICSPLUS 5 


These two programs will do the same thing, but the second (although a little 
hard to read at first) is much easier to type in. 


10 PRINT "first" 
20 PRINT "second" 
30 PRINT "third" 


LO PRINT “Tirest" "second" * "thi rd* 
Two apostrophes can be used together to get a printout on every other line: 
1O PRINT £°* 247s" ta *S 


You can combine apostrophes and commas. By adding an apostrophe to the 
program that prints numbers down the center of the screen, you can print blank 
lines in between the numbers: 


10 FOR a=1 TO 10 
15 PRINT’ sa 
20 NEXT a 


Semicolon 


The semicolon keeps the print position next to the last printed character. Its 
usefulness is not immediately apparent because, even without the semicolon, the 
print position is automatically moved to the next character space. However, 
since it can be used to override the usual print position movement caused by the 
ending of a PRINT command, the semicolon has a number of useful applica- 
tions. Try inputting graphic characters in this program for the best effect: 


10 INPUT a$ 
15 PRINT a$; 
20 GO TO 15 


The semicolon can be used to keep the print position on a certain screen line 
when you want something more printed there but the program has to do 
something else first. For instance: 


10 PRINT "Number "35 
19 INPUT ñ 
20 PRINT n 
29 GO TO 10 


When this program reaches the PRINT command in line 20, your number is 
printed on the same line as the word Number. 





6 CHAPTER ONE 


Tabbing 


The TAB function works on a modulo 32 system. If you use a number higher 
than 31, 32 will be subtracted from it (as many times as necessary) until the TAB 
number is 31 or lower. So, 


PRINT TAB 2 and PRINT TAB 34 and PRINT TAB GG 


will all cause something to be printed in the third column (column #2) of the 
current line. 

Using a lower TAB number after a higher one in the same PRINT command 
will cause the second item to be printed in the appropriate column of the next 
line: 


PRINT TAB 21515TAB 15525TAB 353 
If you TAB past an already printed item, that item will be erased: 


10 PRINT» "middle" 
15 PRINT AT 0905 "left" TAB 255"risht" 


This happens because the TAB function actually prints spaces as it moves the 
print position to the TAB point. 

The computer also prints spaces when you use the comma as a print 
positioner. Once you use a PRINT AT to return to a line that has information 
already printed on it, you'll have to use more PRINT ATs to move around 
without erasing anything. 


More Format Control 


The PRINT AT command is simple to use, and is the most versatile of the print 
position changers. With it, you can specify both the line and the column at which 
you want to begin printing. 

The upper left corner of the screen has the coordinates 0,0: 


PRINT AT 0+0 
and the lower right corner is 21,31: 
PRINT AT 21:31 


You can use negative numbers with PRINT AT statements; the computer 
will ignore the negation and use the absolute value of the number (printing in 
row 5 if you say row —5, for example). Some interesting effects are available as 
a result: 
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10 FOR a=-20 TO 20 
15 PRINT AT asasa 
20 NEXT a 


You wind up with the numbers 0, 11, 22, and so on, on the screen. These 
numbers appear because the negative numbers are first printed in a diagonal 
line, then the positive numbers are printed at the same locations, obscuring the 
minus signs. 


ATTRIBUTE ASSIGNMENT 


There are four main attributes associated with a printed character: INK, PA- 
PER, FLASH, and BRIGHT. In addition, OVER and INVERSE can be 
assigned to any character cell (the square of eight by eight pixels that a printed 
character occupies). PAPER and INK are used with color numbers, while the 
other four attributes are used with a 1 to turn them on or a 0 to turn them off. 

The two things to keep in mind about attributes are that they can be set 
temporarily with any print or graphic command and that they always apply to an 
entire character cell. 

Setting an attribute as a separate command: 


FLASH 1 
BRIGHT 0 
INK 2 


makes it a permanent attribute. It applies to everything subsequently printed, 
unless you specify otherwise. 
You are probably used to using a temporary INK color for printing things: 


PRINT INK 25 "hello" 


You may not realize, however, that with the right syntax any attribute can be 
used with any print or graphic command. Some of the possibilities are 


CIRCLE INK Z2itizZ?7 +87 +590 

PLOT INVERSE 15 60120 

DRAW FLASH 15100,100 

PRINT BRIGHT O3"bright" 

Because the attribute affects the entire character cell, you cannot use 


CIRCLE FLASH 1512798775 
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to draw a circle whose outline simply flashes on and off. When you try that 
command, you will see that each cell that the circle is drawn through flashes on 
and off. 

You can use this situation to your advantage in many cases. By using 
matching paper and ink colors against a contrasting background, you can 
DRAW in low resolution graphics—an especially easy way to create oversize 
letters. This short program draws a chunky letter A: 


5 PAPER 1:CLS:INK 5 

10 PLOT 75,0 

15 DRAW PAPER 5;50,100 
20 DRAW PAPER 5;55,-100 
25 PLOT 90,40 

30 DRAW PAPER 5160,0 


Line 5 sets the background color to blue and INK to cyan. Line 10 sets the 
starting point for the DRAW command. The DRAW command itself changes 
each character cell it passes through to cyan; since this is the same as the ink 
color, you see only blocks of color being drawn. If you had not set the ink color 
to cyan first, you would still see the DRAW line inside the character blocks. 
(Line 25 moves the DRAW position to the beginning of the crossbar. ) 

See if you can predict what display will result from the following program: 


10 PRINT PAPER 6G;s"hello" 
15 PRINT PAPER Gs"hello" 
20 PRINT PAPER G5 TAB 20;5"hello" 


Instead of just the word hello on a yellow background in three different 
spots, this program also changes the color of all the cells on the line right up to 
where the hellos are printed. This is because, as mentioned in the discussion of 
print position, the comma and TAB actually print spaces to get to the correct 
column in the line. To get “hellos” written on yellow backgrounds, you have to 
either move the print position before entering the PAPER command: 


PRINT TAB 203PAPER Gi"hello" 
or use a PRINT AT: 
PRINT PAPER GSAT 35105"hello" 
As another demonstration of the cell assignment for attributes, try this: 


5 PAPER 7:CLS:INK 7 

10 FOR x=20 TO 230 STEP 10 
15 PLOT x,O:DRAW 0,175 

20 NEXT x 

25 FOR y=0 TO 7 

30 PLOT 0, y*20+3 

35 DRAW INK y;250,0 

40 NEXT y 
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The first loop of this program draws invisible vertical lines—white ink on a 
white background. The second loop draws horizontal lines in different tempo- 
rary INK colors. Sections of the “invisible” vertical lines appear—sections that 
are one character cell (eight pixels) long, because the ink color is changed for the 
whole cell wherever the horizontal lines pass through. 


QUICK TIPS 


Even the most basic programming techniques have finer points you should be 
familiar with. 


FOR-NEXT Loops 


1. The number that defines the beginning of a FOR-NEXT loop does not have 
to be 1. Any number can begin the loop. 


10 FOR b=0 TO 7 
15 BORDER b:PAUSE 60 
20 NEXT D 


It is especially convenient to use negative numbers in a loop with the DRAW 
command. This program, for instance, will draw a filled-in triangle. 


10 FOR d= -100 TO 100 
15 PLOT 12730 

20 DRAW d+100 

209 NEXT d 


2. The numbers in the FOR statement, and those with STEP do not have to be 
whole numbers: 


10 FOR b=.5 TO 7.9 STEP +9 
15 BEEP 34b 
20 NEXT b 


3. A FOR-NEXT loop can act just as a counter does, or can be used to change 
the variable in some mathematical expression or to control screen format, color, 
or sound. In fact, it can do all of these at once: 


10 FOR n=0 TO G 

15 BORDER n:INK n 

20 PRINT AT nen#¥Z25n5"*#10="5n#10 
Zo BEEP «en 

30 NEXT n 
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4. The values in the FOR statement and the number in STEP do not have to 
work out evenly. The computer will continue the loop until the next step would 
put it out of the range defined by the FOR statement. For example, 

FOR x=1 TO 20 STEP 3 


would result in seven loops, with x being equal to 19 on the last loop. 


5. At the end of a loop, the control variable is equal to a number higher than 
allowed by the loop. Try 


FOR a=1 TO 5: NEXT a: PRINT a 

The computer will print 6. You can visualize the computer incrementing the 
control variable by the required STEP, then double-checking the upper limit; if 
the variable exceeds the limit, the loop is not performed again. 


Variables 


1. When it comes to variables, the computer considers uppercase and lowercase 
the same. Try, as a direct command, 


LET A=5:PRINT a 

As variable names, all of the following are interchangeable: SCORE, Score, 
score, and SCorE. 

Variables in this book are almost always lowercase, the exceptions being 
situations where uppercase is clearer, such as when a lowercase L is being used 
that might be confused with a one. 


2. The same letter can be used for a simple variable, a string variable, and an 
array name. So, 


LET a=5 LET a$="A" DIM a(3) 


can all be used in the same program. However, a letter already used as a numeric 
variable cannot also be used in a FOR-NEXT loop or with a DEF FN statement. 

A string variable name may be used for only one purpose at a time: as a 
simple string variable, for a string array, or as a function variable. For example, 
only one of the following can be used in a program: 


LET a$="A" DIM a$(5) FN a$ 


3. The variable name must come first in the LET statement, and its value must 
come after the equals sign. So, 


LET a$=INKEY$ 
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is the correct form, and 
LET INKEY#=a$% 


will not work. 


4. Variable initialization means assigning a beginning value to a variable. This is 
necessary when you are using the variable as a counter or as a scorekeeper; the 
variable is usually initialized to 0. 

To increment a score variable, for instance, you would use 

LET s=st5 
However, unless you had originally used 

LET s=0 


the computer would stop with an “undefined variable” report. 


5. Any expression that represents a string or a number can be assigned a 
variable name. Here are some less than obvious possibilities: 


LET a$=INKEY$ 

LET b$=CHR$ G 

LET c#=SCREENS(4 +2) 
LET a=CODE a$ 

LET b=STICK (12) 
LET c=POINT(120%50) 
LET d=ATTR(20:10) 


READ-DATA Statements 


1. A DATA statement can be placed anywhere in the program, before or after 
the READ statement. You can ask the computer to READ more than one item 
at a time: 


READ a+sbec 
and you can mix numbers and strings in your READ and DATA statements: 


10 FOR r=1 TO 5 

15 READ asa$:PRINT avast 

20 NEAT f 

25 DATA 1> "“one"s2e"two"»3e+"three" 
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Note that in line 15, a comma is used in the READ statement to separate the 
variables—it is a syntactical requirement. Later in that same line, a comma is 
used in the PRINT statement as a print position changer. 


2. The computer always evaluates mathematical expressions and uses the result; 
when you use PRINT 4+4, the computer prints 8. Expressions can be used in 
DATA statements, as can previously defined variables: 


DATA 4sa+7+X +3*b SOR 47s ż+b 


3. The usual method of reading DATA in a FOR-NEXT loop is not always the 
best way to do it. You may need a routine that READs five items in one loop, 
eight items in a later loop, and so on. In that case, you can use the structure: 


10 READ a 
15 IF a=999 THEN GO TO 25 
20 GO TO 10 


In the DATA statement, place the number 999, or any other key number that 
will not be needed as data, after your last item of DATA. 

The following program makes use of such a ‘“‘data-stop.” It plays “Row, 
Row, Row Your Boat,” printing one line of the lyrics on the screen at a time. A 
subroutine is used to play the tune; since a different number of notes is played 
each time the subroutine is called, it is necessary to build in a data-stop that tells 
the computer when the data is finished. A separate DATA statement is used for 
the notes of each line of the song. 


10 PRINT "Row, row, row your boat":GO SUB 45 
15 PRINT "Gently down the stream":GO SUB 45 
20 FOR n=1 TO 4 

25 PRINT TAB nxX23;"Merrily":GO SUB 45 

30 NEXT n 

35 PRINT "Life is but a dream": GO SUB 45 
40 STOP 

45 READ a: IF az99 THEN FRINTs: RETURN 

50 READ b: BEEP a,b:G0 TO 45 

Se DATA « 755 Og 0 75g Og wg Og 0 Sy oy Jy 499 

GO DATA oping Sy 0 259 oy ary Fy we Logs Lema ly VF 

65 DATA .25,12,.25, 12, .25, 12, 99 

70 DATA wBos lp wees ee aoe te 8S 

75 DATA .25,4,.25,4,.25,4,99 

80 DATA .25,90,.25,0,.25,9,99 

85 DATA .5,7,.25,5,.5,4,.:25,2,1,0;99 
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Multiple Statements 


Being able to put more than one command on a program line is a great 
convenience, but there are some things you should keep in mind. 


1. When you use a GO TO statement, you go to the first command on the 
program line specified. You will not be able to skip the first statement to GO TO 
a subsequent command. So, put statements you want to jump to first on their 
lines. 


2. As program lines get longer, they are more difficult to edit. It takes longer to 
move the cursor to the latter part of the command, and it takes longer for the 
computer to reprint the line as you make corrections. And, once the program 
line exceeds three screen lines, it is extremely difficult to change a line number. 
The DELETE command will appear and disappear, but the number will remain. 


3. Using IF-THEN statements with multiple commands calls for caution: if the 
IF condition is true, the rest of the commands on that line will also be executed. 
If it is false, none of the other commands on the line will be executed. 

In the first instance, we are given a handy programming option, because we 
can say “If this is true, then do this, and this, and this”: 


IF a=3S THEN PRINT "Right! ":BEEP 0+0:STOP 
On the other hand, you have to be careful of something like this: 
10 IF INKEY#=""THEN GO TO 10:LET a$=INKEY$ 


At first glance, this seems like a logical use of multiple statements because you 
will so often need those commands together in a program. But this is what 
happens: If no key is being pressed, the IF statement is true, and the computer 
follows the THEN command—it loops back to the beginning of the line. Once a 
key is pressed, however, the IF statement is false, and the computer goes right to 
the next program line, not the next command. No matter what happens, the 
computer never sees the LET statement! 


Using PAUSE 


1. The PAUSE command tells the computer to wait a certain amount of time 
before continuing with the program. The number used with PAUSE indicates 
how many times the screen should be scanned before the program continues. 
Since this scanning (refreshing the quick-fading electrons that make the picture 
on the screen) occurs 60 times every second, 
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PAUSE GO = 1second 
PAUSE 120= 2 seconds 
PAUSE 180= 3 seconds 
PAUSE 30 = “second 
PAUSE 15 = 1⁄4 second 


2. A PAUSE command can be interrupted by pressing a key—once a key is 
pressed, the program continues no matter how much of the PAUSE remained. 
This is convenient because you can display a screenful of information for a 
specific time, but the user can press a key to go on with the program if she 
doesn’t need that much time to read it. 


3. There is an option with PAUSE that tells the computer to just keep waiting 
until a key is pressed—this option, PAUSE 0, has the same effect as: 


10 IF INKEY$=""THEN GO TO 10 


where the computer constantly loops on one line until a Key is pressed. 


3. There are times when you will not want the user to be able to interrupt your 
delays. If you run 


10 FOR p=1 TO 32 

15 PRINT 1; 

29 PAUSE 30 

25 NEXT P 

a line of ones will be slowly printed across the screen. If you hold down any key, 
they will be printed much more quickly. You can’t prevent a PAUSE from being 
interrupted, but you can program a delay without using PAUSE at all: a delay 
loop, or empty loop, can be used: 


FOR d=1 TO 500:NEXT d 


The computer will do nothing on this loop except the loop itself; it cannot be 
rushed through a loop the way it is rushed through a PAUSE. 





Numbers 


RANDOM NUMBERS 


You might be able to simulate the roll of a die with the formula presented in the 
user’s manual, but an in-depth understanding of random number generation will 
let you simulate other situations as well. 


Pseudorandom Numbers 


The first thing to understand about the T/S random number generator is that it is 
pseudorandom: the computer has a definite list of numbers it generates, but the 
numbers are in no apparent order and give the appearance of being utterly 
random. The second and most important thing to keep in mind is that all of these 
numbers are between 0 and 1. 

To get a random number, simply enter 


PRINT RND 


and you will get something like .0011291504 in response. Run this short program 
to get a two-column list of random numbers: 


15 
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10 PRINT RND; 
20 GO TO 10 


Numbers such as those in this list are seldom needed—what you usually 
need is a number higher than one and without a decimal fraction. To get larger 
numbers is, of course, a simple matter of multiplication; getting rid of the 
decimal places requires the use of the INT function. (The INT function will 
always give an integer, a whole number with no digits to the right of the decimal 
point. It will take a given number and round it down to the next integer.) 

The following examples demonstrate what happens when you multiply the 
RND number and apply INT. (RND numbers rounded to one decimal place are 
used in order to simplify the chart.) There are 10 possibilities for the digits that 
follow the decimal point; statistically speaking, an equal number of each digit 
should be generated. 


RND RNDXS INT (RNDXS) 
«OD sO 8) 
TE | i © 
sale iw 1 
aia La 1 
4 “aD = 
a “i 2 
»& oe O S 
e i Ri = 
.8 4.0 4 
a Y 4.5 4 
RND RNDXS INT (RNDX2) 
ME sO © 
sd a Q 
on sé Q 
a .9 C) 
-4 kig 1 
o aa lew 1 
26 1.8 1 
. 7 eek 2 
.8 =» 4 pA 
+? Aar 2 


As you can see, when you multiply RND by 5 and INT it, you wind up with 
one of five different numbers; using 3 gives three possible numbers. Usually, 
though, you will want your random numbers to begin at 1 instead of 0. If you add 
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1 to each of the final numbers, you will get numbers 1 through five in the first 
instance, and 1 through 3 in the second. 
So the basic formula for random number generation is: 


INT (RND#N+L ) 


where N tells how many different numbers you want, and L is the lower limit of 
the range. The formula INT(RND*6+ 1) is the popular way of simulating the 
roll of one die. The formula INT(RND*100) will give you numbers from 0 to 99 
(when no lower limit is set, it is 0, and 100 different numbers starting at 0 means 
the highest number is 99). And the formula INT(RND*100 + 100) will give you 
numbers from 100 to 199. 


Random Programs 


The following program prints randomly colored asterisks at random spots on 
the screen. 


10 BORDER O:PAPER O:CLS 
15 LET r=INT (RND*X22) 

20 LET c#®INT (RNDX32) 

25 LET iINT(RND&7+1) 

30 INK isPRINT AT rcp "x" 
35 GO TO 15 


LINE NOTES 


10 Sets the entire screen to black. 


15—25 Chooses random numbers for row, column, and ink. Notice that for 
row and column, the ranges are 0 to 21 and Oto 31, respectively, while for 
INK, O is avoided because that is the background color. 





You will have to BREAK into this program to stop it. And you will want to 
change the border, paper, and ink colors back to normal before you go on: 


BORDER 7:PAPER 7:CLS:INK O 


The next program will draw rays of various lengths from the center of the 
screen in random directions. 


S FOR r=1 TO 50 

10 LET di#INT (RND*150~-75) 
15 LET d2=INT (RNDX150-75) 
20 PLOT 127,87 

25 DRAW di,d2 

30 NEXT r 


18 CHAPTER TWO 


LINE NOTES 


10—15 Gives arandom number in the range — 75 to + 74 (150 different 


numbers starting at — 75). Negative numbers are needed so that the lines 
will occasionally go downward and to the left. 


20 Starts the DRAW line from the center of the screen on each loop. 





Every computer book offers a “guess my number” game as a perfect exam- 
ple of random number usage; this book is no exception. In the following 
program, the computer chooses a number between 1 and 20, and you have five 
turns to guess it. 


10 LET n®INT (RND*20+1) 
15 FOR t#1i TO 5 
290 INFUT"Guess my number":g 
29 IF g#n THEN GO TO 40 
SO IF g<>n THEN PRINT"Wrong. Try 
again. ":PRINT:NEXT t 
35 PRINT "Sorry. You lose. ":STOF 
40 PRINT "Right. And it only took "st;" tries" 


LINE NOTES 


10 Chooses arandom number between 1 and 20. 
25 Jumps out of the loop if the guess is correct. 


30 Loops back when the guess is wrong. 


35 Needs a STOP or the program will go on to say “Right” after it says 
“You lose.” 


40 Uses the control variable from the loop to identify how many turns have 
been taken. 





Excepting Numbers 


There are times when you will want a random number to be “anything but” 
some specific number; perhaps, in a range from 1 to 10, anything but a 6. In the 
program that randomly placed asterisks on the screen, for instance, if the 
background was red, you wouldn’t want the INK color to be the same. In that 
case, you could adjust the program like this: 
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10 BORDER 2:PAPER 2:CLS 
15 LET r=INT(RND*22) 

20 LET c=INT(RND&32) 

25 LET i=INT(RND&7) 

30 IF i=2 THEN GOTO 25 

35 PRINT INK isAT r,c3"x" 
40 GOTO 15 


If the ink color is 2, the program goes back for another ink color. 

If, however, you are excepting a large range of numbers, then this method 
will not work. If you want to print asterisks on the screen in random spots on 
either side of a center column, you will need numbers from 0 to 12 and from 20 
to 31. Going back for a new number every time the computer picks an “‘illegal”’ 
one (13-19) could waste a lot of time. 

One way around this problem is to set up a random number selection that 
will choose one of two numbers and, based on the number chosen, go on to 
choose from one of the legal ranges: 


5 FOR t=1 TO 100 

10 LET r=INT(RND&22) 

15 LET n#INT (RNDX2) 

20 LET L#INT(RNDX*12) 
25 LET HINT (RNDX12+20) 
30 IF n=O THEN LET c#®L 
35 IF ni THEN LET cH 
40 PRINT AT rc "x" 
45 NEXT t 


LINE NOTES 


5 Sets up the loop for 100 asterisks to be printed. 
10 Chooses a row coordinate. 
15 Choosesa1ora0. 


20—25 Chooses two possible column coordinates. 


30—35 Chooses the final column coordinate based on the result of the 
random number selection in line 15. Because n should be O half the time 

(and, of course, 1 the other half), a balanced number of asterisks will be 

printed on either side of the empty band in the middle of the screen. 





Unequal Ranges 


The printout from the last program came out looking balanced because there 
were equal numbers of PRINT AT positions in each of the “legal” areas. If you 
want to change the program so that asterisks will be printed in the first 8 and 
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the last 16 columns, you cannot use exactly the same formula; if asterisks 
were printed in the narrow area as often as in the wide area, those in the narrow 
area would appear much more crowded. To achieve the proper balance, change 
these lines: 


15 LET n=INT(RND#3) 

20 LET L=INT(RND*8) 

2o LET H=INT(RND#16+16) 
eo IF 020 THEN LET c= 


Asterisks will be printed in the narrow portion of the screen one-third of the 
time, and in the wide portion two-thirds of the time. 


Even and Odd 


Although you could write a program to check whether a random number is even 
or odd and to loop back for another one if the wrong type was chosen, it is more 
efficient to get only even (or odd) numbers to start with. 

If you multiply any number by 2, the result will be even. So, if you halve the 
range in the random number formula and multiply the generated number by 2, 
you will wind up with an even number in the desired range. If you wanted an 
even number between 1 and 100, you would use: 


INT (CRND#50+1) #2 


Remember to keep the “**2” outside the parentheses so the random number 
from 1 to 50 is multiplied by 2. If it were placed inside the parentheses, as in 
INT(RND*50 + 1*2), you would only get a 2 added to the RND*50 number. 

To generate odd numbers, add 1 to an even number. 


CINT(CRND#50)#2)+4+1 


will give odd numbers from 0 to 99. 

The following routine is from a much larger program, one that draws a music 
staff and places notes on random lines or spaces for identification. This routine 
simply draws the staff and places a note in one of the spaces. After a short pause, 
the note disappears and another one is placed on the staff. 


10 FOR y#51 TO 120 STEF 16 

15 PLOT 75,y:DRAW 100,0:NEXT y 
20 FOR n=1 TO 10 

29 LET s#=INT (RNDX6+3) x2 

S0 PRINT AT 3,16; "O"SPAUSE 30 

25 PRINT AT 83,163" "sPAUSE 30 

40 NEXT N 
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LINE NOTES 


10—15 DRAWS the lines of the staff on the screen. 
25 Since the notes have to be printed on the spaces of the staff and those 


Spaces correspond to screen lines 6, 8, 10, 12, 14, and 16, the formula 
calls for six different number possibilities, starting at 3. When multiplied by 
2, these give the six even numbers starting at 6. 


30 Prints anote on one of the spaces. 
35 Erases the note. 





Try altering this routine so that the notes appear on the lines instead of in the 
spaces. Don’t forget that when the note disappears, so will the portion of line 
that it was on; instead of printing a space to erase the note, you will have to print 
a line segment. 


Randomize 


Because the computer is going down a list to get your “random” numbers, the 
numbers generated will always be in the same sequence—and that, of course, 
makes them less random. 

The computer always starts at the same point in the list unless you tell it 
otherwise. Try 


PRINT RND>+RND 


Write down the numbers you get; then enter the NEW command, and try 
PRINT RND,RND again. Same numbers, right? 

With the RANDOMIZE function (RAND on the T key), you can get the 
computer to start someplace else in the list: 


10 FOR a=1 TO 5 
15 RANDOMIZE 5 
20 PRINT RND RND 
25 NEXT a 


On each loop, the RANDOMIZE command resets the computer, but always to 
the same point in its list so that you have five pairs of identical numbers. 

While there are some benefits to being able to choose your starting point in 
the random number list (for when you are testing certain program routines), 
most of the time you will probably want your random numbers to be as random 
as possible. When you use RANDOMIZE 0, the computer chooses a spot in the 
list based on how long the computer has been on. You can then just continue 
down the list from that point: 
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10 RANDOMIZE QO 

15 FOR a=1 TO 5 

20 PRINT RND RND ' 
29 NEXT a 


or you can choose a new spot on the list every time: 


10 FOR a=1 T0 5 
15 RANDOMIZE 0 
20 PRINT RND+RND 
29 NEXT a 


This last routine is the most random of the random number generation possi- 
bilities. 


NUMERIC ARRAYS 


An array is like a row of boxes. You can put any number you want into any box, 
or take it out; all you have to know to move numbers in and out is the name of 
the box. 

The first thing you have to do is tell the computer to set up a row of “boxes” 
for you. This is called dimensioning an array. DIM a(5) will set up a row of five 
boxes. Each box is named by the variable you use in the DIM statement and a 
number that indicates its position in the row. 


ali) alz) a(3) a(4) a(3) 


are the names of the boxes in the array dimensioned by DIM a(5). The boxes are 
actually called elements, the numbers that indicate position in the row are called 
subscripts, and the element a(1) is called “a sub-one.” 


Filling the Boxes 


As soon as an array is dimensioned, all its elements are set equal to zero. Try 
DIM a(2): PRINT a(1)+a(2) 


There is no need, then, to initialize an array element the way you have to 
initialize a simple numeric variable. 

Putting a number into one of the boxes is like assigning a value to any other 
variable: 


LET a(1ldI=S:sLET al 3)=235 
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Because a subscripted variable represents a number, it can always be used in 
place of a number, just as a regular numeric variable can. 


LET a JHA +a (3) 
Ò 


GO TO 100+a(2)#4 


The following program sets up an array and lets you fill the boxes; then it 
prints out the value of each array element. 


10 DIM n(10) 

15 FOR x= 1 TO 10 

20 PRINT"What do you want in box "x" 7?" 
25 INPUT n(x)::NEXT x 

30 CLS 

35 FOR x#1 TO 10 

40 PRINT"Box "gx3" contains a "gn(x) 

45 NEXT x 


This program is a perfect example of why arrays are so important in 
programming: they make the storage and retrieval of information simple. How 
would you have written that program using only simple variables? The FOR- 
NEXT loop works only with the subscripted variables of an array, so you would 
have to start like this: 


10 PRINT"What do vou want in the first box?" 
15 INPUT a 
20 PRINT"What do you want in the second box?" 
Zo INFUT 6 


and so on—the first half of the program alone would go up to line 105. 


The Improved Guessing Game 


The first thing you can do with an array is improve the “guess the number” 
program presented in the previous section. 

Setting up an array to store the guesses, allows you to do two things: check 
the current guess against the previous guesses (to guard against repeats) and 
recap all the guesses at the end of the game. 
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5 DIM g(5) 

10 LET r=INT (RND*X20+1) 

15 FOR t=1 TO 5 

20 INPUT "Guess my number":n 

25 IF n=r THEN GO TO 60 

30 FOR k=1 TO t 

353 IF n@=g(k) THEN PRINT "You said that already.": 
GO TO 20 

40 NEXT k 

45 LET g(t)=n 

SO NEXT t 

Jy PRINT "You lose.":GO TO 65 

60 PRINT "You win." 

65 PRINT "The number was "sr 

70 PRINT "Your guesses were":PRINT 

75 FOR i1 TO 53: PRINT g(i)sNEXT i 


LINE NOTES 


Dimensions a five-element array for the player's five guesses. 
Chooses a number. 

Starts the loop for the player's turns. 

If the guess is correct, jumps to the end of the program. 


30 Starts the loop to check the current guess against all the prior guesses 
stored in the array. The control variable of this loop is used as the array 
subscript, so it starts at 1. Since there is no need to check array elements 
that haven't been filled yet, the loop only goes up to the value of t, the 


number of turns taken so far. (Notice that element g(t) is checked even 
though it has not been filled at this point.) 


35 Informs the player if the current guess, n, is equal to a prior guess. 


45 Places the number guessed in the next available array element if the 
current guess is not a repeat. 


55 This line is reached after all five turns have been taken and all the 
guesses were wrong. Tells the player he loses, and jumps the program 
forward to the printout of the wrong guesses. 


65 Gives the correct answer. This line is executed even if the player has 
won, in which case it seems to acknowledge the right answer. 


75 Prints out all the values in the array. 





There are a few things you can do to polish this program. The first is to find a 
way, in the loop that starts at line 30, to check only the array elements that have 
been filled. Another problem is encountered in the loop that prints out the 
guesses at the end of the game: the contents of all five array elements are 
printed, even if only three guesses were made before the right answer was found. 
Change the value of the loop in line 75 so only actual guesses are printed. 
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Manipulation 


Data stored in an array is very easy to manipulate. If you had to sum a list of 20 
simple variables, you would have to do it like this: 


10 LET t=atbtco «. + + S 


Simple enough to understand, but rather tedious to type in. Besides, what if you 
want the sum of the last 3 numbers subtracted from the total of the first 17? Or, 
what if you want to compare the average of the first 10 to the average of the 
second 10? 

Adding 20 array elements is simple. Assuming you have an array of n = 20 
elements, you would use 


LET t=0 

FOR i=i TO 20 

LET t=t7nCi? 

NEXT i 

As the loop is performed, successive elements of the array are added into 


the total. This is what is happening on each loop (the current value of t is shown 
in brackets): 


loop i LOJ] + mii) 

loop 2 AII 2 + ALS) 

loop 3 Emtiientzid + nts 

loop 4 Cntti +n (2s4n(3) 1 + mt4) 
and so on. 


An even simpler way to add elements of an array is to dimension the array to 
include one more element than you need for storage and use that last element to 
keep track of the total: 

FOR i=1 TO 20 

LET nt(2i7en(2iF+n i) 

NEXT i 
This way, you do not have to use another variable that has to be initialized. 


The following program uses an array to store the monthly totals of a home 
electric bill for an entire year; it gives the year’s total and the monthly average. 
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10 DIM a(13) 

15 FOR m=1 TO 12 

29 PRINT "Month "sms" total?" 
25 INPUT aím) 

30 LET a(i3)=a(13)+a(m) 

ow NEXT m 

40 CLS 

45 PRINT "Month", "Amount" 

SO FOR m=1 TO 12 

Ja PRINT malm): NEXT m 

60 PRINT:PRINT "Total", a(13) 
65 PRINT:FRINT "Monthly average", a(13)/12 


LINE NOTES 


10 Dimensions an array for the 12 months of the year, with an extra 
element to store the total. 


15—35 Loops 12 times for monthly figures. 


30 As numbers are entered, adds each new amount into the total 
(thirteenth array element). 


45—60 Prints out information. 
65 Calculates and prints the average. 





Search 


Another advantage of using an array arises from the ease with which the 
computer can look through a list of numbers when searching for a particular one. 
Add the following lines to the electric bill program and, when asked, input any 
one of the monthly amounts. The computer will search through the array and let 
you know which month had that amount. 


70 PRINT"What amount are you looking for?" 
75 INPUT x 

80 FOR s=1i TO 12 

85 IF a(s)<>x THEN NEXT s 

90 IF 813 THEN PRINT "No such amount": STOF 
95 PRINT "Month "ss3" was "sals) 
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LINE NOTES 


80 Sets up a loop for the computer to check the input amount against each 
of the 12 array elements that hold a monthly figure. 


85 Continues the loop if a match was not found. 


90 Ifthe loop was completed without a match, then the control variable 
reaches a value of 13 (one more than the range). Tells you there was no 
match found and ends the program. 


95 Tells you in what month the match was found. 





This routine is far from complete. What if there are two months with the 
same amount? Try adding appropriate program lines to allow for this situation. 

You can see how handy a search routine can be. Imagine this routine as part 
of a checkbook management program. You could input an amount and find out 
which check had that amount on it. 


Sorting 


Another technique that relies on the use of arrays is that of sorting things. There 

are many different kinds of sorting routines, but the simplest is one called a 

“bubble” sort: in it, the lower values rise, like bubbles, to the top of the list. 
First, a brief look at a sorting procedure. Given a list of five numbers: 


f J 3 6 2 


you can compare the first two numbers and, if the one on the right is lower, 
switch their positions: 


3u<¢ >? 3 6 2 


Next, compare the second pair of numbers (the numbers in second and third 
positions), and switch again if the one on the right is lower: 


J scr 6 2 


Following this procedure with the third and then the fourth pair of numbers, 
we get: 


J 3 6<— 7 2 


J 3 6 ac Pr 
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By the time all successive pairs of numbers have been compared and, if neces- 
sary, switched, the largest number is at the end of the list. 

Starting all over again, compare the first two numbers, and switch them if 
necessary: 


so 7 5 6 2 f 


Comparing the second and third pairs gives: 


3 5----6 2 7 
3 5 2€56 7 


There was no switch made on the comparison of the second pair, but the 
positions of the numbers in the third pair were changed. There is no need to 
compare the last two numbers, since we know that the last position is already 
occupied by the largest number. Now, after the second round of comparisons, 
the last two positions are filled by the two largest numbers. 

On the third round, it is necessary to compare only the first and second pairs 
of numbers, and we get this: 


Soe 2 6 f 
3 2 6&9 6 ¢ 


The first set was not switched; the second pair was. 
The last round of comparisons has to consider only the first pair of numbers. 
We find that they must be switched, resulting in: 


ee 2 6 f 


If you go back over this comparison, you'll find some rules that you can use 
in writing a sorting program: 


1. It took four rounds of comparisons to sort five numbers: the number of 
rounds necessary for a sorting routine is one less than the number of items to be 
sorted. 

2. There are four comparisons made in the first round, three in the second, and 
so on: the number of comparisons needed in any round is the total number of 
items minus the number of the round. For five items, the first round has to do 
four comparisons, the second round does three, and so on, until the fourth 
round does five items minus four rounds, or one comparison. 
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3. In a comparison, positions of the items are switched if the second number is 
lower than the first. 


Now, with these rules in mind, we can set up a sorting routine, using an array 
to hold the numbers to be sorted. The subscript of the array element indicates a 
number’s position in the list. When a comparison necessitates a switch, the 
contents of the array elements will be swapped, so that their positions in the list 
are exchanged. 


5 DIM a(S) 
10 FOR i=1 TO Ss INPUTa(i)sNEXT i 
15 FOR r=1 TO 4 
29 FOR c=1 TO 5S-r 
25 IF alc) >a(c+1) THEN GOSUB 40 
SO NEXT csNEXT r 
25 FOR i=1 TO SsPRINT a(idsNEXT i: STOP 
40 LET bea(c):LET sza(c+l1) 
45 LET a(ct+1l)=@bsLET a(c)=s 
20 RETURN 


LINE NOTES 


5—10 Dimensions an array to hold five numbers and allows you to input any 
five numbers. 


15 Sets up the number of rounds to equal one less than the number of 
items in the list (elements in the array). 


20 Sets up an inner loop for the number of comparisons in each round to be 
the total number of items (5) minus the number of the round (r). 


25 Compares successive pairs of numbers. On the first comparison, c is 
1, so a(1) and a(2) are compared. On the second comparison, cis 2, so al2) 
and a(3) are compared, and so on. If the first element of the pair is larger 
than the second element, the computer goes to a subroutine that will switch 


their values. 


30 Loops back for the next comparison (c loop) and, when comparisons are 
finished, loops back for the next round (r loop). 


35 Prints out sorted numbers. 


40 Subroutine to switch values. The computer gets to this routine only 
when alc) is higher than alc + 1). Variables are used to temporarily store the 
bigger number in b and the smaller number in s. 


45 Switches the array element values by putting the bigger number (b) in 
alc + 1) and the smaller number (s) in afc). 


50 Returns to the main program after the switch, so the next loop can be 
performed. 
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You can make this sorting routine more versatile by letting it handle as many 
numbers as you need sorted. Change the beginning of the program to: 


> INPUT"How many numbers do you want sorted" 5 
t:DIM a(t) 


and change the “5” in lines 10, 20, and 35 to “t” for the total number of items. 
You can alter this routine so that the number sorting places the highest 
number at the top of the list. Simply change the IF statement to: 


IF aled<alet+l1) THEN « « + 


so that the values will be switched only if the first element is smaller than the 
second. 


Another Dimension 


The ‘“‘rows of boxes” in the previous programs are single-dimension arrays—you 
are working with a single row of boxes, array elements with one number in their 
subscripts. 

Visualize three rows of boxes stacked on top of each other—this is a 
two-dimensional array. A two-dimensional array is dimensioned by using two 
numbers with the DIM statement. The statement 


DIM n(3+4) 


dimensions an array with 12 elements, or cells: three rows with four boxes in 
each row. Each element has two numbers in its subscript, named in the following 
manner: 





n (2,1) | n (2,2) | n (2,3) : 


It’s easy to keep track of the element names if you think of the first number 
as referring to a row, and the second to a column. In fact, two-dimensional 
arrays are best used where data will benefit from a row-and-column pre- 
sentation. 
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The following program uses a two-dimensional array to improve upon the 
electric bill program presented earlier: this program keeps track of telephone 
and gas bills as well. The array is dimensioned to take care of 12 months’ worth 
of bills for three different utilities. Normally, that would be DIM a(12,3), but we 
want to be able to store both monthly totals and yearly totals for each utility. So, 
planning ahead, we dimension an array that is one element larger in each 
direction than we need for the actual number storage. 


10 DIM a(13,4) 

iS FOR m=1 TO 12 

20 PRINT "Month "m 

295 INPUT “Electric? "sa(m,1) 

30 INPUT "Telephone? "sam, 2) 

35 INPUT "Gas? "sam, 3) 

40 NEXT m 

45 CLS 

S0 PRINT "Month"; TAB 10: "Elec"; TAB 173;"Tel": TAB 
23; "Gas": PRINT 

59 FOR m=1 TO 12 

60 PRINT m3 TAB iisga(m,1)3; TAB 18;a(m,2)3 TAB 
24;a(m, 3) 

635 NEXT m 

70 FOR m=1 TO 12:FOR u=1 TO 3 

75 LET a(13,u) =a(13,u) ta(m,u) 

80 NEXT u: NEXT m 

85 PRINT:FRINT"Total"; TAB 10;a(13,1); TAB 
17;a(13,2); TAB 233a(13,3) 

90 PRINT: PRINT"Average"; TAB 103 INT 
(a(13,1)/12); TAB 173 INT (a(13,2)/12)3 TAB 
23s INT (a(13,3)/12) 

95 FOR u=1 TO 3:FOR m=1 TO 12 


LET a(m, 4) 2a(m,4) t+a(m,u) 
NEXT msNEXT u 
PRINT AT 0,283 "Ttl":PRINT 


FOR m=1 TO 12: PRINT AT m+1,293;a(m,4): NEXT m 


FOR u=i TO 3:LET a(13,4) =a(13,4)+ a(13,u): 
NEXT u 

PRINT AT 15, 283;a(13, 4) 

PRINT AT 17,28; INT(a(13, 4) /12) 
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LINE NOTES 


10 Dimensions an array to hold monthly amounts for utility bills. The first 
subscript in each element will refer to the month; the second subscript will 
refer to the utility (1 = electric, 2 = telephone, 3 = gas, 4 = allthree 
combined). So, al4,2) is the amount of the fourth month's telephone bill. 
When the first subscript is 13, the element will be holding a yearly total: 
a(13, 1) is the year’s total for the electric bills. When the second element is a 
4, the element is holding a monthly total: a(6,4) is the total for utilities in the 
sixth month. 


15—45 Allows you to input the amounts for each utility for each month. 
50—65 Prints out a chart of the year’s expenses. 


70—80 Uses nested loops to get yearly totals in each of the three utility 
categories. On the inner loop, only the second subscript changes, so the 
totals for each month are incremented for each utility before the next month 
is considered. The outer loop changes the month by changing the first 
subscript of the array element being considered, and works in the same way 


as the adding loop in the basic electric bill program. 
85 Prints out the yearly totals for each utility. 


90 Calculates and prints out the yearly average for each utility. INT is used 
because there is no routine in this program to round off to dollars and cents; 
without such a routine, an average might come to something like 

35. 786548, and the spacing on the chart would be ruined. 


95—105 Uses nested loops to figure totals again. This time the totals are 
for each month, so the inner loop has the first subscript changing. 


110—115 Prints out the monthly totals. Notice that PRINT AT must be 
used to avoid erasing any of the information already on the screen. Notice 
also the use of the control variable, m, to specify the line number for the 
PRINT AT statement. 


120 Calculates the yearly total for all utilities by adding together the yearly 
totals for the separate utilities. (You could add the monthly combined totals 
instead.) The yearly total is stored in the only array element so far unused: 
a(13,4). 





The following charts may aid you in visualizing just how the two-dimen- 
sional array was used in this program. The first chart is a sample printout 
generated by the program; in the second chart each amount has been replaced 
with the subscripts of the array element used for that figure. Notice, in the 
second chart, how the array subscripts match the row and column numbers. 


NUMBERS 33 


Month Elec Tel Gas Tt] 
1 45 45 56 146 
2 56 45 34 Loo 
S 76 wo 43 175 
a <4 103 45 i 
= 45 z4 4 E e 
6 56 36 Ri iva 
7 A 45 45 E ee 
8 45 45 45 Eaa 
9 tn 5 45 124 
10 b5 43 45 153 
11 WO 65 mi 164 
12 4 56 43 1 oe 
Total TBO 627 wee 1720 
Month Elec Tel bas Tri 
1 Shel? Cle Lies (1,4) 
= Ce 12 (eu kt (Eyd (2,4) 
mi oy 12 ae O. Kae a ate (3,4) 
4 (4,1) (4,2) (4,3) (4,4) 
J (Se 12 Coe a Cole (3.4) 
& (6,1) (6524) C62 (5,4) 
Zz vet? CS ee? PPP (7,4) 
8 (8,1) (8,2) (3,3) (8,4) 
9 Cy, 12 CY at) Fa (9,4) 
10 iain 22 (10,2) (10,35) (10,4) 
11 ee Pe (Lire) FETTO? (11,4) 
= (1241) (12; 2) C126 33 (12,4) 
Total (15,12 C1 rA (13, 5) (13,4) 


Further Dimensions 


The number of dimensions a numeric array can have is not limited to two; it is 
not limited at all, except by the memory capacity of the computer. For example, 
you could expand the utility program into a third dimension: DIM a(2,13,4), 
with the first subscript indicating to which of two houses the data applied. Or add 
a fourth dimension: DIM a(10,2,13,4), to keep track of all the bills for a decade. 
In that case, a(3,1,6,2) would refer to the third year, first house, sixth month, 
second utility category. 





Strings 


STRING FUNCTIONS 


Strings are for more than just PRINTing: they can be measured, evaluated, 
sliced, and otherwise ordered and manipulated with many interesting and useful 
results. 


The LEN Function 


LEN is the simplest of the string functions; it allows you to check how many 
characters are in a string: 


10 INPUT"“Enter a string"sat 
13 PRINT"Your string is "ILEN a$s" characters long." 


You can use LEN to check that the person at the keyboard is following 
instructions: 


10 INPUT"Enter a five-letter word" ib 
l> IF LEN bS< 33 THEN GOTO 19 


34 
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This loop keeps the program from continuing until instructions are followed 
correctly. It doesn’t, however, give the player much of a clue as to why the 
program isn’t going on—perhaps he meant to enter a five-letter word and simply 
miscounted. A better construction might be: 


10 INPUT“Enter a five-letter word" sb% 
15 IF LEN b#<35 THEN PRINT"That word was "SLEN b#5" 
characters":GOTO 10 


LEN can also be used to center a word or phrase on the screen. For 
centering, half of the string should be printed before the center column; with 
that in mind, we can use the LENgth of the string to set the TAB: 


10 FOR n=1 TO 5 
15 READ a#:PRINT TAB (iG-LEN a#/2)sa%:NEXT n 
29 DATA "these"; "Strings"+s “are” "all"» "CGentered" 


The expression following TAB calculates the length of each string and divides it 
by two; the resulting number is subtracted from 16, the center screen column, so 
that the TAB allows the first half of the word to be printed before the middle of 
the screen. 


The STR$ Function 


There are certain things, such as using the LEN function, that you can do with 
strings but not with numbers. You can, however, convert a number to a string by 
using the STR$ function. For example, 


LET a$=STRS 12 


will make a$ equal “12”. 

Being able to apply string functions to numbers is very useful. LEN, for 
instance, can be used to justify numbers on the right instead of on the left, which 
is the way the computer normally prints them: 


Left Justified Right Justified 
3657 3657 


94 94 
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Right justification of numbers is much easier to read and quite simple to arrange: 


o9 DIM n(5):LET t20 

10 FOR j;#1 TO S 

15 INPUT"Enter a number "sn(35) 
20 LET t=t+n(j) aNEXT j 

25 PRINT"The sum of your numbers is: "sPRINT 
30 FOR j#1 TO 5 

35 LET n@®=STR® n( 3) 

40 PRINT TAB (16-LEN n$) 3n8% 
45 NEXT j 

S0 PRINT TAB 10;" - 

55 LET t#=STRS t 

60 PRINT TAB(16—-LEN t$);t$ 


LINE NOTES 


5 Dimensions a five-element numeric array and initializes the variable t 
(for total) to O. 


45 Begins the loop for inputting numbers. 
20 Sums the numbers into t as they are entered. 


35 Asthe loop is performed, converts each number in the array to a string 
with STRS&. Since there is no need to permanently store the number as a 
string, the same variable name, n$, is used for each number as it is printed. 


40 Prints the number stored in n$ at a TAB position that is its LENgth 
away from the center of the screen, resulting in right justification at the 
center column of the screen. 


60 Prints the total, right-justified at the center column. 





The VAL Function 


When a number is inside a string, it cannot be used in any mathematical 
operation, because strings can’t be added, multiplied, divided, and so on. By 
using VAL, however, you can get the VALue of the number inside a string. 

When you have a program that uses INKEY$, any key pressed is considered 
a string. If you were using the INKEY$ to determine to what subroutine the 
program should go, you would have to say 


IF INKEY$="1" THEN GO TO 100 
IF INKEY$="2" THEN GO TO 200 


and so on. With VAL, however, you can convert the INKEY$ number to its 
numeric value, and simply say 


GO SUB YAL INKEY$#100 
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Aligning Decimals 


While it is easy enough to justify numbers to the right, aligning their decimal 
points takes a completely different program. 

For decimal alignment, a number is put into a string with STR$ so that 
you can look at one “‘slice’’ at a time until you find the decimal point; the TAB 
at which the number is printed depends on which slice the decimal point was 
found in. 

The following program lets you INPUT five numbers and will print them on 
the screen with their decimal points aligned; it also allows for the possibility that 
you may input a number with no decimal point at all. 


10 INPUT a 

15 LET a@=STRS a 

20 FOR z=1 TO LEN a$ 

29 IF a$(z)s"." THEN GO TO 40 

30 NEXT z 

35 PRINT TAB 15-LEN a%3a%:GO TO 10 
40 PRINT TAB 16-23; a%:GO TO 10 


LINE NOTES 


15 Converts the input number to a String. 
20—30 Checks each character of the string to see if it is a decimal point. 


35 Ifthe computer reaches this line, there was no decimal point in the 
number; prints the decimal point at the appropriate column. 

40 The computer reaches this line when a decimal point has been found at 
position z in the string; calculates the column for TAB so that the decimal 
point will be in the sixteenth column. 





STRING ARRAYS 


String arrays are similar to numeric arrays in that a DIM statement is used to 
reserve memory space and the use of subscripted variables makes the strings 
easy to store and retrieve. 

String arrays, however, have one important difference: you have to indicate 
not only how many elements you want in the array (how many strings you want 
to store), but also how long the strings will be. DIM a$(5,10) dimensions an 
array that will hold five strings of up to 10 characters each. 

While you can think of a numeric array as a row of boxes, a string array is 
more like a wall of shelves, with only a limited amount of space on each shelf. 
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Each string goes on a shelf, but each character of the string goes into one of the 
shelf’s spaces. In your DIM statement, you indicate how many shelves you need 
and how many spaces you need on each shelf. 

If you use only one subscript when dimensioning a string array, the comput- 
er will assume the number refers to the length of the string. For example, DIM 
a$(5) dimensions an array of one element, for a string that is five characters long. 
Because the T/S uses procrustean assignment for string arrays, there are some 
uses for single-element arrays. 


Procrustean Assignment 


Procrustus was a legendary (and, we hope, mythical) Greek innkeeper who 
made sure his clients fit their beds—either by stretching their bodies to the right 
length or by chopping off that portion of their anatomy that might be hanging off 
the edge. 

When you put a string into a T/S array, the computer plays Procrustus: the 
string is either padded out with spaces to fill the “shelf,” or it is truncated to fit 
in. If you dimension an array to hold strings of six characters, that is exactly what 
it will hold. 

The following program dimensions an array to hold three strings: 


10 DIM a#(3+6) 

15 FOR n=1 TO 3 

20 READ a#(n) 

29 NEXT n 

30 DATA "string"; "array", "storage" 


When the data is read into the array in the FOR-NEXT loop, “string” fits 
perfectly, “array” has a space added to the end of it, and “storage” has its last 
letter chopped off. 

To see how this works, add these lines and run the whole program: 


g> FOR n21 TO 3 
40 PRINT a$(n)5"," 
43 NEXT n 


Line 40 puts a period next to the last character of the stored string so you can 
see where it actually ends. “Storage” is obviously truncated to fit in the array; 
the period shows that “array” has an extra character, a space, added to it to 
make it the right size. 
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Procrustean Applications 


In working with a computer that uses Procrustean string storage, you have to 
know exactly how a string is stored in order to compare it to another string. Try 
this short program: 


10 DIM a#(2,5) 
/ 15 LET a@(1)="short":LET a®(2)="long" 

20 FOR n=1 TO 2 

29 PRINT"Type this word: "s;a8(n) 

30 INPUT b$ 

35 IF b$=a$(n) THEN PRINT "Right" 

40 IF b$<>a$(n) THEN PRINT "Wrong": GO TO 25 
45 NEXT n 


When you type in “‘short,”’ the computer will tell you you’re right, but when 
you type in “long,” you'll be told to do it again (and again and again). 

The problem is that “long”? has been padded with a space to fit in the 
array—you are typing in a four-character word, and the computer is comparing 
it to a five-character word. If you try entering “long” (with a space at the end), 
the computer will consider it a correct answer. 

You can imagine what a mess would be made of a question-and-answer 
game if procrustean string assignment were not taken into account. One way to 
solve the problem is to dimension a single-element array to hold the answer 
(single-element, meaning to hold only one string; these are all single-dimension 
arrays). 

Change the first line of the program: 


10 DIM a$(2+5):DIM b$(5) 


Now the answer, b$, will be padded out to the same length as the stored string 
and it will register as a correct answer, whether or not you type in the trail- 
ing space. 

You might have a program that, because of a scoreboard format, allows a 
player to input a name of up to 10 characters, but no more. You could use: 


10 INPUT"Tyrpe in your name (up to 10 letters)"sas% 
15 IF LEN a$>10 THEN GO TO 10 


but the program will run much more smoothly if you do it this way: 


10 DIM a#(10) 
15 INPUT"TypPpe in your name" sas 


By making a$ an arrayed variable limited to 10 characters, you ensure that if the 
player types in more, the excess will just be ignored. 
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A String Array Program 


The following is a question-and-answer game framework; it allows you to input 
questions and answers, and then plays the game by choosing five of the questions 
at random. Since array data can be saved separately from the main program and 
merged back in at any time, you can use this kind of framework to build a series 
of question-and-answer games. 


10 DIM g#(10,32):DIM a$(10,16):DIM t#(164) 
15 FOR i=1 TO 10 

20 PRINT "What is question # "sis INPUT q#(i>) 
25 PRINT "What is answer # "¿is INPUT a$(i) 
20 NEXT i 

35 CLS 

40 FOR t#1 T705 

45 LET r#INT(RND*10+1) 

SO PRINT q@(r)s INPUT t$ 

SS IF t®#as(r) THEN PRINT "Right" 

60 IF t#<>as(r) THEN PRINT "Wrong" 

65 NEXT t 


LINE NOTES 


10 Dimensions array q$ for 10 questions that can be up to 32 characters 
(one screen line) long and array a$ for answers that can be up to 16 
characters long. Array t$ is for the player's answer. 


15—30 Allows you to type in the questions and answers. 


40 Sets up a loop for five questions. 
45 Chooses anumber from one to ten; using the random number as the 


subscript for q$ makes the computer choose a question from the array at 
random. 


50 Prints the question and waits for the player's try, tS. Because of the 
procrustean assignment in the answer String, the player's answer must also 
be 16 characters long. For a one-element array, you do not need a DIM 
statement—this is true only for one-element string arrays. When you use a 
subscripted string variable like this, you are defining the length of the string. 


55—60 Acknowledges right and wrong answers. 





While READ-DATA statements are often used in question-and-answer 
games, they are really only suited to situations where both the questions and the 
answers are brief. Using arrays allows for more flexibility in both questions and 
answers, and there is an added advantage in being able to SAVE and LOAD 
array data (see Chapter 11). This sample program plays poorly—there is only 
one chance at the correct answer, there is no scoring, there is no check to see 
that a question is not used twice, and so on. It is, however, basically the same 
framework as that you would use for a more polished program. 
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Two Dimensions for Strings 


Setting up a string array of more than one dimension is the same as setting up a 
multidimensional numeric array, except for the number that denotes the length 
of the strings. For example, DIM n$(3,4,5) dimensions a two-dimensional string 
array—three sets of four shelves, with five spaces on each shelf. 

It might be easier to think of a two-dimensional string array as a set of index 
cards. For example, DIM c$(20,5,30) would give you a set of 20 cards; each card 
would have five lines on it, and each line could hold 30 characters. 

In fact, the following program uses just such a set of “cards” to set up a 
telephone directory: each of the 10 cards has two lines on it, one to hold a name 
and one to hold a number. 


10 DIM ¢#$(10,2,15) 

15 FOR i=i TO 10 

20 INPUT "Name? "sc@(i, 1) 
25 INPUT "Number? "3c$(i,2) 
30 NEXT i 

35 FOR i=i TO 10 

40 PRINT c#(i,1),c#(i,2) 

45 NEXT i 


LINE NOTES 


10 Dimensions a two-dimensional string array of 10 cards with two lines 
on each. Each string can be up to 15 characters in length. 


15—30 Lets you input names and numbers. Remember that names are 
limited to 15 characters. 


30—45 Prints out the array contents. 





This is only the core of what can be a very useful program. If you change the 
second dimension size from 2 to 6, you can store names, numbers, and address- 
es. (Remember, also, to change the allowed size of the string.) Of course, the 
number of cards is easily adjusted, too. By adding a sort routine you can have an 
alphabetical index; adding a search routine will allow you to type in a name and 
get a number, an address, or both, from the computer. 

String arrays can be expanded into more than two dimensions. For example, 
you could add a third dimension to the telephone directory program so you 
could have separate listings for your personal and business acquaintances. In 
data handling terminology, that third dimension is a file—you could think of it as 
separate file boxes for your two categories of acquaintances. The index cards are 
records, and the lines of data on the cards are called fields. 

Before you add any routines to the telephone program, it might be helpful to 
take a look at some other string functions. 
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STRING MANIPULATION 


Not all of the string functions were introduced at the beginning of the chapter. In 
fact, the best are yet to come. 


Character Codes 


Everything in the computer is stored in the form of numbers, so each letter—in 
fact, every keyboard character, including punctuation, keywords, and func- 
tions—has a code number. Using CODE will tell you what the character’s code 
number is. For example, PRINT CODE “a” will give you a 97, and PRINT 
CODE “A” will return a 65. 

(Unlike its consideration of variable names, when it considers strings, the 
computer differentiates between uppercase and lowercase characters. ) 

As noted in Appendix A, the codes for uppercase letters go from 65 to 90, 
lowercase letters go from 97 to 122, and codes for numbers are 48-57. 

The code of a string is the same as the code of its first character, so: 


LET n$="alphabet":PRINT CODE n$ 


will give you a 97 for the “a” that begins the string. 


Code Check 


A simple but extremely useful routine using CODE checks whether a number or 
a letter has been pressed when you are using INKEY$. 

If the user/player has been instructed to press a number between one and 
five, you could check his response in this manner: 


IF VAL INKEY$<1 OR VAL INKEY$?53 THEN ; + «+ 


looping back to the INPUT line if a wrong number has been pressed. This error 
trap does not, however, take care of a situation in which the player has pressed a 
letter by mistake. 

Instead of checking the VALue of INKEY$, you can check its CODE. The 
CODE of 1 is 49; the CODE for 5 is 53. Any CODE other than those from 49 to 
53 means a wrong key has been pressed: 


IF CODE INKEY#<49 or CODE INKEY#253 THEN. +s . 
Using CODE means you can loop back to the INPUT line when any invalid key 


is pressed. 
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The CHR$ Function 


CHR$ is the opposite of CODE: with CHR$ you can start with a number and 
end up with a character. For instance, PRINT CHR$ 65 will give you an “a”. 
The T/S character set is made up of 256 characters; you can see all the 


printable characters with the following program: 


10 FOR c=33 to 255 
15 PRINT CHR c 
20 NEXT c 


If codes for the unprintable characters had been included, most of them 
would show up as question marks. 

With CHR$ you can get at the letters of the alphabet by using numbers. 
This, for instance, will print a row of each of the lowercase letters: 


10 FOR c=97 TO 122 
15 FOR i=1 TO 32 
20 PRINT CHR# cs 
29 NEAT i:sNEXT c 


The outer loop changes the value of c to cover the character codes of the 
lowercase letters; the inner loop prints 32 of the current letter. 

Many of the string functions (LEN, CHR$, and so on) are extremely useful 
when it comes to word games. This game for a young child simply prints a letter 
of the alphabet in the center of the screen and waits for the child to press the 
corresponding letter on the keyboard. Because CHR$ lets us get at the letters in 
terms of numbers, it is possible to pick a letter of the alphabet at random: 


10 LET L=INT (RND&*26+97) 

15 PRINT AT 10,15: CHR® L 

20 IF INKEY$=""" THEN GO TO 20 

25 IF CODE INKEY$<>L THEN GO TO 20 

30 FOR r=0 TO 21 STEP 2: FOR c#0 TO 30 STEP 2 
325 PRINT AT r,c3CHR® L:NEXT csNEXT r 

40 PAUSE 60:CLS 

45 GO TO 10 
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LINE NOTES 


10 Chooses a random number in the range 97—122, the range of codes 
for the alphabet. 


15 Prints the random letter in the center of the screen. 


20 Waits for a key to be pressed. 


25 Ifthe wrong key was pressed, goes back to 20 for the next key press. 


30 Sets upa nested loop so that the letter will be printed in every other 
row and column on the screen, as a reward for the right answer. 





You could change the range of the random numbers so that only uppercase 
letters appear on the screen. And how could you alter the program so that, after 
two wrong answers, the program presents the child with a new letter? 


String Comparisons 


String comparisons are used often: 


IF at=b% THEN. + + 
IF apa bS THEN + « 4 


So it probably didn’t occur to you that you were using operation symbols that are 
normally used for comparing numbers. Because the computer sees everything as 
numbers, you can use not ony “‘equals”’ and “does not equal” with strings, but 
the other relational operators (<, >, <=, and >=) as well. 

The computer sees letters as code numbers. Since the code for “a” is 97 and 
the code for “b” is 98, a<b. 

This, of course, is the basis of the computer’s ability to sort alphabetically as 
well as numerically. Strings are compared character by character, so aardvark < 
apple and llama > little. 

A short string is less than a longer string that begins with the same letters, so 
child < children. 

This routine will print any two strings in alphabetical order: 


10 INPUT"First string? "sas 

15 INPUT"Second string? "sb$ 
20 IF ate b# THEN PRINT at+b$ 
29 IF b$<a$ THEN PRINT bsa 


Because all characters are numbers to the computer, you could INPUT 
“2:+ #” and “>œ>-— ]?,” and find that the former comes first alphabetically. 
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Concatenation 


Another mathematical symbol that can also be used with strings, although 
its function is not exactly the same with strings as with numbers, is the plus 
sign (+). 

You can’t actually add strings together, but you can tie them together into a 
longer string by using the plus sign: the process is called concatenation. For 
example, “door” + ‘“‘knob’’= “‘doorknob”’. Or, letting the computer do the con- 
catenating: 


10 LET a#$="door":LET b#="Knob" 
15 LET c$=a$tb$ 
20 PRINT c# 


Concatenating is a useful technique when it is combined with string-slicing 
functions, which will be covered later in this chapter. 


Alphabetical Sorting 


This next program is a slightly altered version of the sorting routine used in the 
section on numeric arrays. Changing from numeric variables to string variables 
and adding the necessary definition of the length of the strings in the arrays are 
the only modifications to the original routine. 


5 DIM a$ (5,12) 
10 FOR i=1 TO 5: INPUT a@(id:NEXT i 
15 FOR r=1 TO 4 
20 FOR c#1 TO 5-r 
25 IF a®(c) >a®(c+1) THEN GO SUB 40 
30 NEXT caNEXT r 
35 FOR iwi TO Ss: PRINT a®(i)sNEXT i: STOP 
40 LET b$za$íc)ıLET s#=#aé(c+1) 
45 LET a@(ct+1)=b@:LET aS(c) =s% 
S50 RETURN 


It is this kind of sorting routine that you would want to add to the telephone 
directory program. Try altering the number search routine in the last program to 
accommodate strings. 


String Slicing 


Slicing is the most versatile of the string-handling techniques, and it is exactly 
what it sounds like: taking a slice, or a piece, of a string. 
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Using TO, you can tell the computer what portion of a string you want: 


a$ = reaction 
a$(3T0O3) = act 
a$(T0 5) = react 
a$ẹ(3 T0) = action 
a%(3) = a 


The numbers in parentheses refer to the characters in the string, so a$(3 TO 
5) gives the third through fifth characters of the string. When no number is 
before the TO, the computer assumes you want to start at the beginning of the 
string. When there is no number after the string, the computer goes to the end. 
The slicers, a$(TO 5) and a$(3 TO), could have been written a$(1 TO 5) and 
a$(3 TO 8). Using a single number as a slicer makes the computer take the 
character that is in that position in the string. Don’t confuse a single-character 
slicer like a$(3) with a subscripted array variable! 

The following routine will slice one letter at a time from a string and print 
that letter on the screen, with the final result being a very slow print routine. 


10 LET a$="This is slow Printing" 
15 FOR n=1 TO LEN a$ 

20 PRINT a$(n)5 

29 PAUSE GO:NEAT n 


This next routine will scramble an input string; it forms the core of a game in 
the program section at the end of this book. 


10 INPUT a$ 

15 LET L=LEN a$ 

20 LET r#INT (RND&L+1) 

25 PRINT a®@(r); 

30 LET aS=a#( TO r-1)t+a®(r+i1 TO) 
35 IF ag=""" THEN STOP 

40 GO TO 15 
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LINE NOTES 


20 Chooses a random number that will be somewhere from 1 to the 
position of the last character in a$. 

25 Prints the character in a$ that is in the position chosen by the random 
number. A semicolon keeps the print position placed so that each letter will 


appear next to the last. 

30 Redefines a$ so that it no longer has in it the letter that was just 
printed (see line 35). 

35 If all the letters of a$ have been printed, a$ is now an empty string; if 
that is the case, the program stops. 


40 Goes back to choose the next letter. Since one character has been 
removed from a, it has a new, shorter length, and L has to be redefined. 





If the line notes did not make the procedure entirely clear, perhaps this 
program trace will help. 
If a$ is “string”, on the first loop: 


a$= "string" 
LEN at=6 
Random number (1 TO 6)=4 
Computer prints a#(4), or "i" 
Screen reads: "i" 
a$=a$( TO 4-1) +a#(4+1 TO) 
a$¥=aé( TO 3) + aS$(S TO) 
at= 4 ete 9 e$ "ng ti 
a$= -_ ""strng" 


On the second loop: 


a#="strng" 
LEN a$ now is 5 
Random number (1 TO 5)=2 
Computer prints aé(2), or "t" 
Screen reads: "ti" 
aG=a%( TO 2-1)+ a$(2+1 TO) 
atZ=-a$( TO 1) + a¥$(3 TO) 
at= epa t + "rng" 
a$= "srng" 


You can see how a$, as each letter is plucked out of it, gets shorter and 
shorter, until there is nothing left to it at all. 
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String Array Slices 


The use of slicing subscripts with string array subscripts can get confusing. The 
first number (or group of numbers) in the subscript denotes the array variable, 
and the second number (or group of numbers) denotes the slice: 


aé(S, TO 4): The first four characters 
of array variable a#(3). 


ae(eeSs 2 TO 5); The second through fifth 
characters of the element 
aé$(2,3) from a two-dimensional 
array. 


ah. GS): The fifth character from 
array element a$(2). 


Of course, the last example—a$(2,5)—could also be simply the name of an 
element from a two-dimensional string array: you would have to judge by the 
way it was used in a program. To keep your own programs as clear as possible, 
you can use this alternate method of slicing array variables: 


a$(3)(TO 4) 

as{221330e TU 32 

a$(2)(35) 

The computer accepts this syntax of double parentheses, and you may find 


that it makes it much easier to keep track of which subscripts are for array 
variables and which are slicers. 





Techniques 


INPUT VARIATIONS 


You may be surprised at just how many different ways there are to set up an 
INPUT statement; depending on the program, some methods are better than 
others. 


Multiple Inputs 


INPUT is used with a numeric or string variable; with a numeric variable an L 
cursor appears at the bottom of the screen, and with a string variable an L cursor 
surrounded by quotes is used as the prompt, or request for input. 

The first variation of the INPUT command is one that allows the use of 
multiple variables with INPUT. Try, as a direct command: 


INPUT asbsc 


When you respond to the prompts by inputting the three numbers, be sure to 
press ENTER after each one. Each number remains on the screen; each is 
printed right next to the last, and they do not disappear until the last one is 
entered. 
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Inputting multiple strings is less confusing than inputting multiple numbers: 
INPUT aSsb% 


After you enter the first string, a new pair of quotes appears for the second one, 
making the INPUT much easier to read. 

You can mix string and numeric inputs—a particularly useful feature if you 
are inputting information such as items with their prices: 


INPUT asa 


This format is easy to read because the string stays on screen inside quotes, while 
the number is printed outside them. 


Spacing INPUT Prompts 


The semicolon between the variable names in the INPUT statement does two 
things—it separates the variables so that a, b, and c will not be read as a single 
variable (abc), and it also serves to position the input prompt. Since it is, then, 
being used as a print positioner, it can be replaced by a comma. The command 


INPUT arb 


will put the prompt in the usual place for the first variable, but will move to the 
halfway point of the screen for the second prompt. 

And, of course, since the semicolon and comma can be used, so can the 
apostrophe. This is a particularly good method if you are inputting a list of 
strings, because the strings already entered scroll upward as another is added to 
the list: 


INPUT aS‘’b#’ct’d$’ 


You do have to be careful, however: as the inputs scroll upward, so will your 
display. 

You can also use CHR$ 9 to move the cursor between the inputs; this is one 
of the best ways of inputting a short list of numbers: 


INPUT asCHR# OsbSCHRS OsesCHR$ 95d 


One space will separate the input items, regardless of their individual lengths; 
this makes them easy to read, and at the same time minimizes display disruption. 


String Prompts 


The INPUT variation that includes a string prompt: 
INPUT"TyPpe your name "sa% 


has a few variations of its own. 
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You will have already noticed that you must leave a space after name inside 
the quotes, so the input is not printed right next to it. Using CHR$ 9 in this 
situation is more confusing than including a space in the string prompt, but 
replacing the semicolon with a comma: 


INPUT"TyPe in your name" -:a% 


gives a very good effect—as long as the string prompt is less than 15 charac- 
ters long: 
The apostrophe provides the best effect of all: 


INPUT"Type in your name" ‘as 


Using the apostrophe puts the input cursor on the line below the string prompt. 
With a little planning, you can come up with some very friendly prompts; for 
example, 


INPUT"item Price" ’at+sa 


Leave twelve spaces between the words in the string, and send the cursor prompt 
down to the next line with an apostrophe. After the name of the item is entered, 
the prompt will move to a position under the word price. 


Suppressing Quotes 


The INPUT LINE command suppresses the quotes that normally surround the 
prompt when a string input is expected. If you use 


INPUT LINE a$ 


only the L cursor will show at the bottom of the screen. This function has the 
advantage of preventing the user from entering a STOP command at this point in 
the program. Normally, you can delete the left quote when the computer is 
waiting for a string input and enter STOP; with the quotes missing, however, the 
STOP will be interpreted as a string rather than as a command. (Pressing shifted 
6 will stop the program at this point.) 

You can move the cursor to the middle of the input line by placing a comma 
between INPUT and LINE: 


INPUT» LINE a$ 


When you want to use INPUT LINE with a string prompt, the correct 
syntax is: 


INPUT "Type your name"sLINE a$ 


You can replace the semicolon with either a comma or an apostrophe to move 
the cursor prompt. 
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Multiple INPUT LINE 


You can use multiple inputs with INPUT LINE, but you cannot simply say 
INPUT LINE atib¢ 


because, while INPUT applies to all the variables in the command, LINE only 
applies to the variable immediately after it. The above command will be 
accepted by the syntax editor, but there will be quotes around the second cursor 
prompt. To suppress the quotes in all the inputs, LINE has to be repeated: 


INPUT LINE a#$sLINE bS5LINE c$ 


The semicolons can, of course, be replaced with commas or apostrophes to space 
the input cursor appropriately. 


The INKEY$ Function 


The INKEY$ function scans the keyboard to see if a key is being pressed. Since 
the computer works so much faster than you can move your fingers, you cannot 
simply say 10 PRINT INKEY$—because the program will be over before you 
can press a key. Try this one-line program, entering an unshifted “a” when you 
run it (You should get a 97, the code for “ʻa,” right?): 


10 PRINT CODE INKEY$ 


I can guarantee that you did not get a 97. You got either a 0 or a 13, and when 
you pressed the “a” key, the command NEW appeared at the bottom of the 
screen, because by the time you pressed “‘a’’, the program was over. 

If a 13 was printed on the screen, it means your finger was still on the 
ENTER key when the program ran—13 is the code for ENTER. If a 0 was on 
the screen, your finger was off ENTER, but not yet on “a.” (Although checking 
the CODE chart shows 0 to be “not used,” it is actually a code for an empty 
string. You can check that by entering: LET a$ = ““:PRINT CODE a$). 

Because the keyboard is scanned so quickly, it is necessary to use 
the following line in programs that use INKEY$ (the line number, of course, will 
vary): 


10 IF INKEY$=""THEN GO TO 10 


Quotes with nothing between them (called an empty string) stand for no key 
being pressed, so the computer continues to loop on that one line until a key is 
pressed. 

This construction, however, doesn’t solve all the problems that INKEY$ 
presents. The following program, for instance, makes your computer emulate a 
typewriter: when you press a key, the corresponding letter appears on the 
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screen. The semicolon is used to keep the print position next to the last-printed 
character, so words are typed all on one line instead of a letter on each line as 
would happen without the semicolon. 


10 IF INKEY$=""THEN GO TO 10 
15 PRINT INKEY$3 
20 GO TO 10 


The problem with this program is that it is difficult, if not impossible, to get a 
letter printed only one time, because, again, you can’t get your finger off the key 
fast enough. 

The solution is to tell the computer not to continue until your finger is off the 
key. In other words, stay at a program line until INKEY$ is empty string again: 


17 IF INKEY#<2""THEN GO TO 17 


Inserting this line in the program will let you type at your own speed. 

It is a good programming practice to assign a variable name to the INKEY$ 
value. INKEY$ (actually pronounced inkey-string, not inkeys) is always a string, 
even if you press a numeral, so the variable must be a string variable. The 
typewriter program should then be written like this: 


10 IF INKEY$=""THEN GO TO 10 
15 LET a$=INKEY$ 

20 PRINT a$; 

25 IF INKEY$<>""THEN GO TO 25 
30 GO TO 10 


Since you want to go back to line 10 when INKEY$ is an empty string, why 
can’t you use this? 


295 IF INKEY$=""THEN GO TO 10 


You can easily turn the typewriter program into a simple (very simple) word 
processing program by adding a few features. The first is what is called a line 
feed: press a key to move the print position to the beginning of the next line. 
Actually, we’re going to improve upon that by making an automatic para- 
grapher—a line feed plus an automatic indentation of five spaces. This is a 
simple matter of changing the print position in response to a key press. We’ll use 
the ENTER key to start a new paragraph, and we'll tell the computer to go to 
the next line and TAB to the fourth column if the ENTER is pressed. 

The second feature is also simple to add: an option to send a copy of the 
screen to the printer. We can use shifted 9 for this option, since “graphics,” with 
a little stretch of the definition, applies to the procedure. 
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©% IF INKEYS<> "" THEN GO TO 5 
10 IF INKEY$=""" THEN GO TO 10 
15 IF CODE INKEY$=13 THEN PRINT TAB 33: GO TO 5 
20 IF CODE INKEY#=15 THEN COPY:GO TO 10 
25 LET a®=INKEY®:PRINT a$; 
35 GO TO 5 


LINE NOTES 


5 Ensures that the ENTER you press for the RUN command at the 
beginning of the program won't be considered part of the program. 


15 Moves the print position when ENTER (CODE 13) is pressed. Notice 
the semicolon after the TAB 3— it keeps the print position in place for the 
next letter to be printed. 


20 Copies the screen when shifted 9 (code 15) is pressed. 





Instead of INPUT 


There is no prompt on the screen when the computer is scanning the keyboard 
for INKEY$; it would be nice to be able to input a long string or number without 
a cursor prompt appearing, but INKEY$ acts on only one key. 

By using string concatenation, you can get INKEY$ to act like INPUT, but 
without a prompt on the screen: 


S LET ate" 

10 PRINT "Type in a word or sentence" 
15 IF INKEY$=""THEN GOTO 15 

20 IF CODE INKEY$=13 THEN GOTO 45 

25 LET a@zat#+INKEYS 

ZO PRINT INKEYSs3 

35 IF INKEY#<>""THEN GOTO 35 

40 GOTO 15 

45 PRINT: PRINT "a$ is now "a$ 


LINE NOTES 


20 Checks whether ENTER has been pressed; if so, jumps to the end of 


the program. 


25 Adds (concatenates) the INKEYS character to a$. Since a$ was 
originally defined as an empty string, the first INKEY$S will be its first 
character; another will be added to the string on each loop. 
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Sketcher Programs 


One of the most popular uses of the INKEY$ function is in a sketcher program, 
where a line or character on the screen moves in response to the press of a 
certain key. The basic sketcher program is simple and easy to understand. It has 
seemingly endless variations, and you will be seeing a lot of them in this book as 
new techniques are introduced. 

The basic design of a sketcher program is one that simply changes the print 
position in response to the key that is pressed. The following program starts with 
a square (the graphic symbol on the 8 key, shifted) in the center of the screen. 
Pressing any of the cursor control keys (unshifted) will draw a line in the 
direction of the arrow. 


10 LET r#10:LET c=15 

20 PRINT AT r,c3 "B" 

30 IF INKEYS=""THEN GO TO 30 
40 LET m#=INKEYS 

SO IF m$="5" THEN LET c=c-1 
60 IF m$="8" THEN LET r=r+i 
70 IF m$="6" THEN LET r=r-1 
80 IF m$="7" THEN LET c=c+1l 
90 GO TO 20 


LINE NOTES 


10 Sets initial values for r (row) and c (column) so that the square will begin 
in the middle of the screen. 


50—80 Changes the rowor column variable based on which key has been 
pressed. 

90 Loops back to the line with the PRINT AT statement so the square will 
be printed in the new position. 





The problem with this program is that there is no correction when the values 
of r and c get too high or too low. If they go below 0, the negative numbers will 
be converted to positive numbers, with the net result that, while you are pressing 
the left arrow, the line will be moving right. (It moves left as the value of c gets 
lower, toward 0. As it gets even lower, — 1 will put the print position in column 
1, —2 will put it in column 2, and so on.) When the numbers get too high, the 
program will stop with an “‘out of screen” error. 

To keep the values of r and c from going over 21 or 31, respectively, or below 
0, as soon as r equals 22, reset it to 21; if c reaches 32, reset it to 31; reset the 
values to 0 if they reach — 1. This will have the effect of the line hitting a “‘wall”’ 
at the edge of the screen that keeps it from moving. Add these lines to the basic 
sketcher program: 
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20 IF r=22 THEN LET r=21 
100 IF r=-1 THEN LET r=0 
110 IF c=32 THEN LET c=31 
120 IF e=-1 THEN LET c=0 
130 GO TO 20 


You can, instead of the wall effect, create a “wraparound,” so if the line 
goes off the screen to the right it reappears on the left, and so on. Change lines 
90-120 to 


90 IF r=22 THEN LET r=0 
100 IF r=-1 THEN LET r=21 
110 IF c=32 THEN LET c=0 
120 IF c=-1 THEN LET c=31 


Since the line is drawn so quickly, it is difficult to draw exactly the way you 
want to. Try adding 


125 PAUSE 5 


to slow it down to a more manageable pace. 


Sketching Diagonally 


The next improvement is adding the capability of drawing diagonal lines. Be- 
cause there are no arrows that would serve this purpose, we are not going to use 
the cursor controls any more, not even for horizontal and vertical movement. 
Instead, we will use the keys surrounding “G” on the keyboard. T will draw 
upward, B will draw down, F and H will control horizontal movement, and R, 
Y, N, and V will draw diagonally. 

To draw a diagonal line, both the row and column number must change; 
sometimes they both increase, sometimes they both decrease, and other times 
they change in opposite directions. 


10 LET r#10:LET c=15 

20 PRINT AT r,cs "p" 

30 IF INKEY$=""" THEN GOTO IO 

40 LET m@=INKEYS 

SO IF m@="¢" THEN LET c=c-1 

oo IF m@="r" THEN LET rær-i:LET cec-i 
60 IF m@=#"h" THEN LET cactl 

65 IF m@=#"y" THEN LET re=r-isLET c#c+i 
70 IF m@="b" THEN LET r=r+1 

75 IF m@2"n" THEN LET r=r+i:LET c=c+1 
80 IF m@="t" THEN LET r=r—i 

83 IF m$="v" THEN LET r=r+isLlET cac-i 
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90 IF r=22 THEN LET r=#0 
100 IF r=-1 THEN LET r=21 
110 IF c#32 THEN LET c#0 
120 IF c=-1 THEN LET c#3i 
125 PAUSE 5 

130 GO TO 20 


Notice that lowercase letters are used inside the quotes, since you will be 
pressing unshifted keys to do the sketching. You can draw a very interesting 
pattern just by holding down the y key. 


Adding Color 


The last improvement (for now) is to add color. Since none of the number keys is 
being used for direction control, we can use them to change the color of the line. 
It is not necessary to add a stream of IF statements: IF m$=‘“1” THEN LET 
[the INK change to color 1], IF m$=‘‘2”. . . and so on. First, test, by using 
CODE, to see whether one of the color numbers, 0 through 6, is being pressed: 


IF CODE m$?47 and CODE m$<55 4. +4 


The CODE of 0 is 48, and the CODE for 6 is 54. We are not allowing for color 
number 7 because that is the background color. 
Next, change the ink color to the value of the INKEY$: 


+ « « THEN LET 1=YAL m$ 


This assumes, of course, that you are using the variable i in your program for 
INK. Change lines 10 and 20, and add 87: 


10 LET r=10:LET c=15:LeET i=0 
20 PRINT INK isAT recs "i" 
87 IF CODE m$?47 and CODE m$<55 THEN LET i=VAL m$ 


Now you can press a color number at any point in the running of the program 
and the line color will change. 

You don’t have to stick with a white background or a square as the printed 
character. Try setting a black background and drawing with a dot (period): 


> BORDER O:PAPER O:CLS 
20 PRINT INK i5AT reos"." 
87 IF CODE m#248 and CODE m$<56 THEN LET i=VAL m$ 


The CODES in line 87 had to be altered to include white and exclude black. 
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The OVER Option 


The OVER function is turned on by a 1 and off with a 0, but it does not allow you 
to simply print one character on top of another. If it did, the following program: 


10 PRINT "i" 
15 OVER 1 
20 PRINT AT O+05"1" 


would result in a black square in the corner of the screen. 
Actually, what you get is a white exclamation point on a black square, and 
that would be the result no matter which of the characters was printed first. 
When OVER is in effect and two characters are being printed at the same 
spot, the following rules apply: 


1. When both characters are PAPER color, the combined character remains 
PAPER color. 


2. When only one of the characters is INK color, the combined character is 
INK color. 


3. When both characters are INK color, the combined character is PAPER 
color. 


Special Effects 


This program is one presented earlier in the book to illustrate the use of negative 
numbers with PRINT AT. Try it with OVER in effect: 


10 OVER 1 

15 FOR a= -20 TO 20 
20 PRINT AT asasa 
2> NEXT a 


The end result is hard to read because characters have printed over one 
another, with parts obliterated where they crossed. For an interesting effect, 
have the program go through the printing loop twice by adding: 

S FOR t=1 TO 2 
30 NEXT t 


Here’s another use of OVER for an interesting visual effect. 
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5S OVER 1 

10 LET a®="Watch this" 
15 FOR n=1 TO 10 

20 PRINT aS®(n)3 

25 PAUSE 20 

30 NEXT n 

35 PRINT AT 0,03 

40 GO TO 15 


LINE NOTES 


20—35 A “slow print’ routine; slices one character at a time from the 
string and prints it. The semicolon after the print command in line 20 keeps 


all the letters in one line. 
35 Puts the print position back to the corner of the screen. 


40 Starts the slow print routine again. Since OVER is on, the second time 
through the letters will be erased. The next time, they will be printed again, 
the time after that, erased, and so on. 





You can alter this program so that the letters are printed vertically down the 
screen by changing 


20 PRINT sa%(n) 


or have each letter of the string blink on and then off by changing line 20 back to 
its original form and adding: 


28 PRINT CHR 8saé(n)s5 
29 PAUSE 20 


CHR$ 8 is the code for the left cursor, so the print position moves back one 
position (to where it just printed the character) and prints the character again. 
Because OVER is in effect, the character is erased. 

Since OVER has been used as a global command in these programs (instead 
of as part of the PRINT command), the computer will apply it to everything you 
do from now on, even if you put in a new program with no OVER commands at 
all. Enter 


OVER O 


to turn it off. 


The ON ERR Command 


The ON ERR (ON ERROR) command gives you control of the computer’s 
error handling and reporting. With it, you can override the usual error handling 
routine—which includes, of course, stopping the program. 
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There are three ON ERR commands: ON ERR GO TO, ON ERR RESET, 
and ON ERR CONT. 

ON ERR GO TO directs the computer to a specific portion of the program if 
an error has occurred. 

First, try this program with the computer’s usual error handling in effect: 


10 LET x=INT(RND#200+20) 
20 LET v=INT(RND#130+20) 
30 LET r=INT(RND#¥50+5 ) 
40 CIRCLE xiva? 

20 GO TO 10 


The program draws circles of random sizes (r) at random spots (x and y as center 
coordinates) on the screen. As soon as part of a circle goes off the screen the 
program stops with an ‘‘out of screen” error report. 

Try the program with this line added: 


> ON ERR GO TO 10 


Now when the error occurs, the computer will go back to line 10 of the program 
and choose new coordinates. 

The only problem is that you cannot BREAK into this program to stop it. 
You will have to turn off the computer—since the computer considers BREAK 
an error, it will simply go to line 10, as instructed. (The STOP command is also 
treated as an error.) 


Using ON ERR RESET 


You can use the ON ERR RESET command to regain some control. Type the 
program in again, with a few additions: 


~ ON ERR GO TO 10 
10 LET x=INT (RNDX200+20) 
20 LET y=INT (RNDX130+20) 
30 LET r=INT (RND&50+5) 
40 CIRCLE x,y,r 
SO IF INKEY$="" THEN GO TO 10 
60 ON ERR RESET: STOP 


Now, as long as you don’t press a key, the computer will loop back to line 10. 
If you do press a key (at the right time, just after a circle has been drawn), the 
computer goes on to line 60. There, the RESET command is given, enabling the 
computer’s normal error handling procedures; the STOP command is then 
executed. 
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Here’s another program that uses an ON ERR GO TO command to keep a 
graphic display going. You won’t be able to BREAK into this unless you add an 
ON ERR RESET command. 


5 ON ERR GO TO 15 

10 BORDER O:PAPER O:CLS 
iS PLOT 127,87 

20 LET i@INT(RND*6+1) 

25 LET di=INT (RND*¥100-50) 
30 LET d22INT (RND*100-50) 
35 DRAW INK isdi,d2 

40 GO TO 20 


LINE NOTES 


10 Sets background to black. 
15 Plots point in center of screen. 


20 Chooses ink color. 

25—30 Chooses coordinates for the DRAW command. 
35 Draws aline of random color, length, and direction. 
40 Loops back to line 20 for new color and coordinates. 





Note that this program is different from the one presented earlier that drew 
rays out from the center point of the screen. This program does not loop back to 
the PLOT command, it merely goes back for new color and DRAW coordinates. 
The new line is drawn from where the old line ended. Only if the line goes off the 
screen does the program go back to the PLOT command in line 20, as instructed 
by the ON ERR command. 

This program also demonstrates the cell assignment of color. You will 
notice, if you let the program run for a while, that you will get squares of color 
instead of thin lines: as a line is drawn through a character cell, all the inked 
pixels in that cell change to the most current color. 


ON ERR with CONTINUE 


The ON ERR CONTINUE command directs the computer to continue execu- 
tion of the program from the point where the error occurred. 
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10 ON ERR GO TO 30 

iS INPUT a,b 

20 DRAW a,b 

29 GO TO 15 

3O INPUT "New plot coordinates? "x,y 
35 PLOT x,y 

40 ON ERR CONTINUE 


This program allows you to input the two coordinates for the DRAW 
command. If the line is going to go off the screen, the ON ERR command in line 
10 sends the computer to line 30. There you can input new coordinates for a 
PLOT point on a different part of the screen, to move the beginning of the 
DRAW line. Because of the ON ERR CONTINUE command in line 40, the 
computer then returns to the DRAW command in line 20 and draws the line that 
it couldn’t before. 

While you may have realized that 


40 GO TO 20 


would have accomplished the same thing, the ON ERR CONTINUE command 
has the added benefit, not utilized in this short routine, of acting like a RE- 
TURN command from a GO SUB. If the computer might have jumped to this 
correction routine from more than one spot in the program, the CONTINUE 
command will return it to the correct part of the program. 

How would you add the RESET command to this routine so you could 
STOP it? 








Graphics 


DRAWING THINGS 


The DRAW command, like so many other facets of T/S Basic, is simple to use; 
yet it can have amazing results when you know all of its fine points. 


DRAWing with PLOT 


The coordinates used with DRAW are relative coordinates; that is, they are 
calculated from the last point drawn or plotted. “DRAW 50,50” will always give 
a diagonal line whose end point is 50 pixels over and 50 pixels up from its starting 
point. Its placement on the screen, however, will vary. This is in contrast to the 
fixed coordinates of the PLOT command. Although PLOT will be covered 
thoroughly later in this chapter, you do have to be familiar with PLOT coordi- 
nates in order to make the most of the DRAW command. 

The screen is made up of 45,056 pixels, or dots: 256 horizontally by 176 
vertically. Each dot has a pair of numbers, or coordinates, that describe its 
position on the screen. The positions are numbered 0 through 255 from left to 
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right and 0 through 175 from bottom to top. The first coordinate in the PLOT 


command (referred to as the x coordinate) defines the horizontal position of the 


pixel; the y coordinate defines the vertical position. 


Fosition 


Coordinates 


on screen 


lower left corner 


C) 


lower right corner 
upper left corner 
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upper right corner 
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87 


<7 
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us 


2 


...% coordinates.......... 
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DRAWing with DATA 


The figure below is made of four star shapes, each made up of five lines: 


It would take twenty DRAW commands to draw this design if you used a 
separate command for each line. 
If you use READ-DATA, however, the program can be written like this: 


10 PLOT 127,87 

15 FOR n=1 TO 20 

20 READ a,b:DRAW a,b 

25 NEXT n 

30 DATA 30,60, 30, -60, -60, 40, 60,9, -60, -40 

35 DATA —-30,~-60, -30, 60, 60, ~40, ~60,0, 60, 40 
40 DATA -30, 60, ~30, -60, 60, 40, ~60,0, 60, ~40 
45 DATA 30, -60, 30, 60, -60, -40, 60,0, -60, 40 


DRAWing Shapes 


Drawing squares is simple, since all the sides are the same length: 


10 INPUT s 

15 DRAW s,9:DRAW O,s 
29 DRAW —s,90:DRAW 0,-s 
25 PAUSE 60:CLS& 

30 GO TO 10 


66 CHAPTER FIVE 


In this program, when you input the length of the side, the computer draws 
the square for you. It first draws to the right without going upward, then upward 
without going to the right. Then the negative numbers result in lines drawn to 
the left and down. 

Rectangles are just as simple: 


10 INPUT s1,s82 

15 DRAW s1,0:DRAW 0,82 
20 DRAW -81,90:DRAW 0,-s2 
25 PAUSE 60:CLS 

30 GO TO 10 


For some triangles (right triangles of particular orientations), you can give 
the computer the lengths for two sides and it will draw the third itself: 


10 INPUT sliss2 
15 DRAW O+s1:DRAW s2+0 
20 DRAW -s2s-sl 


This program will draw triangles like these: 


The right angle is always in the upper left. How would you rewrite it to draw 
triangles oriented in these three ways? 
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All of the sample drawing programs presented so far have started DRAWing 
from the 0,0 position on the screen. You can PLOT a different starting point to 
put the shapes elsewhere. This program will place squares of random sizes at 
random spots on the screen: 


10 LET s#INT (RND&75+10) 

15 LET x=INT (RND*225) :2:LET y=INT (RND*150) 
20 IF x+s > 255 OR yts > 175 THEN GO TO 15 
29 PLOT x,y 

20 DRAW s,O:DRAW O,S 

35 DRAW -s,0:DRAW 0O,-s 

40 GO TO 10 


LINE NOTES 


10 Chooses the length of the sides of the box. 
15 Chooses the coordinates from which the box will be drawn. 


20 Checks whether the lines that make the box will extend off the screen. 
If the starting point (x) plus the length of the side (s) is higher than 255, the 


line would be drawn past the right edge of the screen. If the starting point Cy) 
plus the length of the side is higher than 1 75, it would go off the top edge. If 
either of these conditions is true, the computer goes back to pick new 
starting coordinates. 

25 Plots the starting point. 


30—35 Draws the box. 





You can PLOT specific points for more structured patterns: 


o LET s#25 

10 FOR n=1 TO 3 

15 FOR p#0 TO 120 STEP 10 

20 RESTORE 100+n 

29 PLOT p,p 

320 READ arIF ami THEN NEXT p 
35 IF p>120 THEN GOTO 45 

40 READ b:DRAW a,6:G0 TO 30 
45 PAUSE 60:CLS 

50 NEXT n 
101 DATA s,0,0,5,-~8,0,0,~8,1 
102 DATA s,0,0, 8+20, ~8,0,0,—(8+20) ,1 
103 DATA 0,38,8,9,-s,-8, 1 
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LINE NOTES 


Sets the length of the sides. (Try different values for s). 
Sets up the loop that will draw the series of three different shapes. 
Sets up the loop that controls where the shape will be drawn from. 


RESTOREs to a line that is related to which n loop the computer is 
performing. Each data line draws a different shape: 101 is a square, 102 is a 
rectangle, 103 is a triangle. Since several of each shape must be drawn, the 


same data must be used again. 


30 Reads the first item of data. If it is a 1, a complete shape has been 
drawn and the computer can loop to the next PLOT position. 


35 Checks whether the p loop has been completed, in which case it jumps 
over the READ and DRAW commands in the next program line. 


40 Reads the second item of data and draws a line based on the data pair 
that has been read into a and b. 


40—45 Pauses, clears the screen, and goes to the next series of shapes. 





Solid Shapes 


To draw filled-in squares or rectangles, just draw a series of lines right next to 
each other: 


10 FOR b=0 TO 50 
13 PLOT Orb 

20 DRAW 300 

2> NEXT b 


How would you write this so it filled vertically instead of horizontally? 

The next program will place boxes of various sizes and colors in different 
spots on the screen. You will get some odd edges when boxes overlap because 
overlapping changes the ink color for the entire character cell. 


5 BORDER O:PAPER O:CLS 

10 LET s=INT (RND*25+5) 

15 LET x=INT(RND*225):LET y=INT (RND&150) 
20 IF x+s8>255 OR yts>175 THEN GO TO 15 
29 LET i=INT(RND*7+1) 

20 PLOT x,y 

35 FOR b=0 TO s 

40 PLOT x,y+b 

45 DRAW INK i33,0 

S50 NEXT b 

so GOTO 10 
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LINE NOTES 


10 Chooses arandom number for the size of the box. 
15 Chooses random coordinates for where the box will be placed. 
20 Checks to make sure the box will fit on the screen. 


35 This is essentially the same as line 10 in the last program; here, sets 
the upper limit of the loop at the random number that controls the size of the 


box (the length of its sides). 


40 This is essentially the same as line 15 in the last program, but it takes 
into account that the box was not placed at the bottom of the screen to 
start with. Line 15 in the last program could have been written as “PLOT O, 
y+b”, but y was O, so there was no need for the g + b expression. 


45 Again, this is essentially the same as the DRAW command in the last 
program: there, the size was 50, and here it iss. 





Filled-in triangles are a little more complicated. Several lines must be drawn 
from the same point, fanning out to form a triangle: 


10 FOR s=-60 TO GO 
15° PLOT 12370 

20 DRAW 5s +100 

23 NEXT s 


You can change the range of s—make it larger, smaller, or not symetrically 
balanced on each side of 0. You can change the PLOT point to move the triangle 
to a different part of the screen. And you can change the number paired with s; 
for example, making it related to s in some way (s + 10, or s/2) gives interesting 
triangles. And s can be the second of the two coordinates in the DRAW 
command. Here are some possibilities: 


10 FOR s=-70 TO 70 
13 PLOT 127450 

20 DRAW 5 +30+5 

25 NEXT s 


10 FOR s=-20 TO 90 
> PLOT 6030 

20 DRAW 100%¢s5 

EF NEAT $ 
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Moire Patterns 


A moire pattern is a separate, sometimes shimmering, pattern that results from 
combining two geometrically regular patterns. You can achieve a moire pattern 
with the computer by generating such combinations, or, more simply, by draw- 
ing nearly parallel lines. If you are working on a color TV or monitor, a moire 
pattern will produce different colors that shimmer on the screen, even if you are 
DRAWing in black on white. 

This program draws a set of concentric circles that will result in a moire 
pattern: 


10 FOR r= 5 TO 80 STEP 2 
19 CIRCLE 127487 +t 
Z0 NEXT f 


You can change the brightness controls on your TV or monitor to make the 
colors more intense and to make them seem to move faster. You can also vary 
their intensity by changing the spacing between the lines. Change the STEP to 
any number up to 10 for milder effects, or delete it entirely for an even brighter 
pattern. 

The following variation of the filled-in triangle spaces the lines so that the 
triangle is not completely filled in. The spaces are small enough to set up the 
interference pattern that causes the color display: 


10 FOR s=-75 TO 75 STEP 3 
13 PLOT 127 +0 

20 DRAW 5 +100 

2> NEXT 5 


When a completely filled-in pattern is drawn, the lines overlap at certain 
points. Using OVER in such a program will wipe out enough pixels to provide 
an interesting, intricate pattern. 


10 OVER 1 

15 FOR s=-100 TO 100 
ZO PLOT 127 +0 

29 DRAW 5s +100 

3O NEAT 5 


You will produce many moire patterns as you experiment with the DRAW 
command. 
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Other Interesting Effects 


Using a loop to change both the size and the position of a geometric shape 
results in some interesting forms. Here, for instance, is a “tornado”: 


10 FOR n=10 TO 100 STEP 2 


13 CIRCLE n/Zosnen/3 
20 NEXT n 


You can build a tunnel with squares that are closely placed—this gives an 
interesting moire pattern, and an optical illusion as well. The end of the tunnel 
that seems nearest to you is first at the bottom of the screen, and then at the 
top—or is it the other way around? 


10 FOR p=0 TO 120 STEP 2 
15 PLOT p,p 

20 DRAW 50,0:DRAW 0,50 
25 DRAW -50,0:DRAW O,-50 
30 NEXT p 


Add these lines for an accordian effect: 


5 OVER 1 

35 FOR p=120 TO O STEF -2 
40 PLOT p,p 

45 DRAW 50,0:DRAW 0,50 

50 DRAW -50,0:DRAW O,-50 
59 NEXT p 

60 GO TO 10 


DRAWing with Radians 


A third number can be used with the DRAW command to tell the computer 
what portion of a circle (arc) to draw. The third number is the number of radians 
in the angle that would describe the arc. 

A radian is the angle that is formed when you draw two lines out from the 
center of a circle so that they enclose a portion of the circle that is the same 
length as the lines. (Each line is a radius, hence the name radian.) For example, 
in this figure, when the length of arc B-C is the same as the radius, angle A is 
a radian. 
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If the size of a circle increases, so does its radius, and a proportionately 
longer arc is enclosed. In this figure, lines A-B1 and A-C1 are the same length as 
arc B1-C1, lines A-B2 and A-C2 are the same length as arc B2-C2, and lines 
A-B3 and A-C3 are the same length as arc B3-C3. 


B3 


So, you can see that a radian is of fixed size. It takes just over 61⁄4 radians to 
cover a circle—approximately 6.2832, or 27(2*PI), radians. 

Because it takes 2*PI radians to make a circle, a half circle is made of 1*PI, 
or PI, radians; and if you use PI with DRAW, you will get a half circle. 


PLOT 127;+87:DRAW 30 +30 5PI 
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Changing the first two numbers with the DRAW command will give you half 
circles of different sizes. 
You can get other portions of a circle by using other portions of PI: 


~S*PI= % circle 
1.5/PI= *% circle 


Radian Graphics 


When a DRAW command is used with a third number, the computer figures out 
the curve, plots a certain number of points along it, and colors the pixels 
between those points. The points are usually close enough together so that the 
resulting line looks like a curve. 

You can get fascinating patterns when you use a very large number to 
indicate the radians. The computer travels around the edge of the circle a 
number of times, plotting points and drawing lines between them, but the points 
are so far apart, you can see the straight lines. This program will give you an idea 
of what is possible with the DRAW command: 


10 FOR d=85 TO 255 STEP 10 
15 PLOT 6595+27 

20 DRAW 100;100,PI#d 

29 PAUSE 30:CLS 

30 NEXT d 


Some of the designs (when n is at 105 and 165, for instance) seem to stay on 
the screen longer. That is because the computer is drawing over lines that it has 
already drawn on the screen. Add 


> OVER 1 


and run the program again. Some of the figures will be entirely erased before the 
CLS command is reached. You might also want to change the INK color to 
something other than black; for example, you can change the color with each 
new value of n. 

As a last demonstration, try this program, which takes one of the values 
from the last program and causes the computer to go over the figure twice: 


> OVER 1 

10 FOR n=1 TO 2 

is PLOT 6&5 +27 

20 DRAW 100+100,PI#255 
229 NEXT n 
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PLOTTING THINGS 


PLOT can—and should—be used for more than picking the starting point for a 
draw command. With the fixed coordinates of the PLOT command, you always 
know where you are on the screen. With PLOT, you can draw lines and circles in 
ways you cannot with DRAW and CIRCLE. 

You are already familiar with the PLOT coordinates of the screen and can 
probably PLOT any point that you want. PLOTting a line is simply plotting a 


row of points. In the accompanying figures, the coordinates for the points that 
make up the lines are shown: 
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LINE 6 





When you plot the row of points that make up a line, there is no need to 


NEXT loop makes the 


PLOT each point with a separate command: a FOR- 


procedure simple. 


You can see that for a vertical line, the x coordinate does not change, while 


the y coordinate increases. To draw a vertical line, then, use 


20 


m} 
pa 


=0 TO 
FFY 


y 


10 FOR 
in PLOT 


í 


£0 NEAT ¥ 
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For a horizontal line, use the opposite procedure, keeping y stationary while 


x changes: 
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10 FOR x=0 TO 20 
15 PLOT x+0 
20 NEAT x 


There is no reason to always PLOT from bottom to top or left to right. How 
could you PLOT these lines top to bottom and right to left? 

Line 3, which is at a 45-degree angle, has its x and y coordinates increasing 
together: 


10 FOR x=0 TO 20 
15 LET y=x 

20 PLOT x+y 

25 NEXT x 


This can also be written as 


10 FOR x=0 TO 20 
iS PLUI «ex 
20 NEXT x 


Although we refer to the horizontal coordinate as x and the vertical as y, to 
the computer these coordinates just represent numbers, and we can use two x’s, 
two y’s, or any other variables, in the PLOT command. 

Line 4 has an increasing y coordinate and a decreasing x coordinate. If you 
look carefully at each pair of coordinates, you will notice that each y coordinate is 
20 minus the x coordinate, so that line can be drawn with the following program: 


10 FOR x=0 TO 20 
15 LET v=20-x 
£2 PLUT way 

29 NEXT x 


Or, simply defining the y coordinate in terms of x: 


10 FOR x=0 TO 20 
15 PLOT x »20-x 
20 NEXT x 


For Lines 5 and 6, both coordinates increase, but at different rates. When 
the diagonal approaches the vertical, y is incremented more quickly than x; as a 
line approaches the horizontal, it is the x coordinate that increases faster. 

Line 5 can be drawn like this: 


10 FOR x=0 TO 20 
15 PLOT xsx/2 
29 NEXT x 
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Because the computer cannot PLOT at a point that is not an integer, it automati- 
cally rounds the coordinate down to a whole number. 
The same line can be defined in terms of the y value: 


10 FOR y=0 TO 10 
13 FLUT 2*7 oy 
20 NEXT 7 


Write two programs that plot Line 6: one in terms of the x value, one in 
terms of the y value. 


A PLOT Sketcher 


A sketcher using PLOT is easy to design: when the line is going to the right, the 
x coordinate increases: to the left, x decreases. When the line is going up, y is 
increasing, and so on, according to the following diagram. 


ty 


Tx, ty tx ,tYy 


NZ 
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+x 


Because the PLOT command uses stable coordinates, you can easily check 
to determine when the values will be going off the screen. The following is an 
adaptation of one of the previous sketcher programs; it has the wraparound 
feature, but you can easily change it to the “wall” variation. 


10 LET x#127:LET y=87 

15 PLOT x.y 

20 IF INKEYS="""THEN GO TO 20 

25 LET ms=INKEYS 

30 IF m$="f" THEN LET x=x-1 

35 IF m$="r" THEN LET x™x-1:LET yy+1 
40 IF m@="h" THEN LET x=x+1 

45 IF m$="y" THEN LET x#x¢+1:LET yzy+1 
S0 IF m$=#"b" THEN LET yzy~1 

SS IF m@="n" THEN LET x#x4+1:LET y#y-1l 
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60 IF m$="t" THEN LET yzy+1 

65 IF m$="v" THEN LET x=x-1:LET y#y~-1 
70 IF x=256 THEN LET x0 

75 IF x#-1 THEN LET x#255 

80 IF y#176& THEN LET y#0 

85 IF y=-1 THEN LET y#175 

90 PAUSE 5S 

95 GO TO 15 


The PLOT Advantage 


So far, we haven’t done much with PLOT that you can’t, with certain adjust- 
ments, do with DRAW. But try these: 


10 FOR y=0 TO 30 

1S FOR x=10 TO SO STEP 10 
20 PLOT x sy 

29 NEXT «SNEAT ¥ 


10 FOR n=0 TO 50 

lo PLOT Oens PLOT SOsen 
20 PLOT neOt PLOT n +50 
29 NEXT n 


The first program uses a nested loop to draw five vertical lines almost 
simultaneously. By plotting the first point of each line, then the second point 
of each line, and so on, the computer makes all the lines appear to grow at the 
same time. 

The second program makes excellent use of a control variable by using it to 
represent four different coordinates on each loop. The end result is a square 
whose four sides seem to be drawn at the same time. 

To show off another PLOT variation that can’t be imitated by DRAW, first 
try DRAWing this optical illusion (a cube for which you can’t decide which is the 
face nearest to you): 


10 FOR d=1 TO 4 
15 READ a,b:DRAW a,b: NEXT d 

20 DRAW 25,25:RESTORE 50 

25 FOR d=1 TO 4 

30 READ a,b:DRAW a,b: NEXT d 

35 PLOT 50,50: DRAW 25,25 

40 PLOT 0,50: DRAW 25,25 

45 PLOT 50,0: DRAW 25,25 

SO DATA 50,0,0,50,-50,0,0, -50 
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LINE NOTES 


10—30 Draws the two squares that are needed for the cube. The same 


DRAW coordinates are used twice, so RESTORE is used. Before the second 
square is drawn, the correct position for its starting corner is determined by 
drawing one of the diagonals. 


39—45 Draws the other three diagonals. 





Now, the same cube with the lines plotted: 


10 FOR x=0 TO 25 STEP 3 

15 PLOT x,xsNEXT x 

20 FOR n=25 TO 75 STEP 3 

29 PLOT n,25:PLOT 25,n:NEXT n 

30 FOR n=0 TO 50 

35 PLOT O,nsPLOT 50,n:PLOT n,O:PLOT n, 50 

40 PLOT nt+25,75: PLOT 75,n+25: NEXT n 

45 FOR n=O TO 25: PLOT 304n,niPlOT S0+n, 50+n1 PLOT 
n, SO+n 

50 NEXT n 


LINE NOTES 


10—25 The lines plotted in these loops, because of the STEP used, turn 
out to be dotted lines that clearly indicate which edges of the cube are 
hidden from view. 


30—40 Draws all of the vertical and horizontal lines sumultaneously. 
45—50 Draws the three remaining diagonal lines simultaneously. 





In addition to being able to draw with dotted lines, the PLOT option of 
drawing lines simultaneously gives a better visual effect. 


DRAW cube PLOT cube 
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PLOTting Circles 


Although the formula for plotting circles uses the trigonometric functions that 
will be covered in Chapter 6, you don’t have to know your sine from your cosine 
in order to use it. 

While the CIRCLE command is easy to use, it limits you to full circles of a 
continuous line, drawn in a counterclockwise direction. By PLOTting a circle, 
you can use dotted lines, draw clockwise, and draw partial circles. (Although 
you can draw arcs using DRAW and radians, it is difficult to determine where 
the center of the circle is, and its size, when you have to define the end points of 
the arc.) And if you can plot circles, you can also plot ellipses. 

The formula program presented next lets you control these four charac- 
teristics: 


The placement of the circle, in terms of x and y screen coordinates. 
The size of the circle. 


The direction in which the circle is plotted—clockwise or counterclockwise. 


=~ eh 


The density of the plotted line—how many points around the edge of the 
circle will actually be plotted. 


This is the formula program: 

FOR v=0 TO 2#PI STEP PI/d¢d 
PLOT x+r#SIN veytr*#COS v 
NEXT v 


The variables in this program are: 


v—the control variable for the loop. Its range determines what portion of 
the circle will be drawn and where the plotting begins and ends. 


d—the density control for the circle. It determines how many points will be 
plotted around its edge. The higher d is, the more points will be drawn. 

x and y—the coordinates for the center of the circle. 

r—the radius, in pixels. It controls the size of the circle. Since the radius is 
half the distance across the circle, increasing r by one will increase the 
diameter by 2. 
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Here is a sample formula program: 


10 FOR v=0 TO 2*#PI STEP PI/150 
15 PLOT 127+S50#5IN v .87+50e#C0Sy 
20 NEXT y 


There are three things immediately noticeable that differentiate this circle from 
one drawn by the CIRCLE command: 


1. Itis drawn much more slowly, because the computer is calculating each 
point that has to be plotted. Although it does that in the case of the CIRCLE 
command also, with CIRCLE it is not slowed down by a BASIC program, 
but works entirely in the machine code routine that is in the ROM. 


The circle begins at the “noon” position at the top of the circle. 


The circle is drawn in a clockwise direction. 


Circle Variations 


Placement To put the circle somewhere besides the center of the screen, change 
the values of the x and y coordinates. (If the diameter is too big in relation to the 
center, the circle will go off the screen and the program will stop.) 


Size The size, of course, is easy to control—you simply change the value of r (it 
occurs twice) in the formula. 


Direction To change from a clockwise to a counterclockwise direction, switch 
the positions of SIN and COS in the formula: 


PLOT x+r#¥SIN veytr¥COS vu 


Density Changing the value of d has the most interesting effect on the circle. 
Using STEP PI/20 will give: 
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Using STEP PI/5 will give: 


The number that you use to divide PI indicates how many points will be 
plotted on each half of the circle’s edge. Using STEP PI/6 will plot the 12 points 
corresponding to the numbers on the face of a clock. 

The following is a “framework” program that will let you input various 
values for the circle program to get an idea of what differences they will make. 


10 PRINT "Enter center coordinates:"’"x and 
ENTER, y and ENTER" 

15 INPUT x,y 

20 PRINT "Enter radius and density values:"’"r 
and ENTER, d and ENTER" 

25 INPUT r,d 

30 CLS 

35 FOR v=0O TO 2%PI STEP FPI/d 

40 PLOT x+rxSIN v,y+r*COS v 

45 NEXT v 


This next program runs like clockwork: 


© CIRCLE 127,87,60 

10 FOR v=0 TO 2*FI STEP PI/6 

15 PLOT 127+5S5*SIN v,87+55%COS v 
20 NEXT v 

25 FOR v=0 TO 2%PI STEP PI/30 
30 PLOT 127+50%SIN v,87+S50xCOS v 
35 PAUSE SO 

40 NEXT v 
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LINE NOTES 


5 Draws the outer edge of the clock. 


10—20 Plots 12 points corresponding to the clock’s numbers. 

25—40 Plots points corresponding to the minute markings. The pause is 
set so that one dot will appear each second—taking the computer's 
calculating time into account. 





How would you alter this program so that it would keep ticking away, with 
the dots disappearing on the second round, reappearing on the third, and so on? 


Ares 


If you can plot a circle—and you can by now—you can plot part of a circle. 
The first line of the circle program we have been working with uses a range 
for the FOR-NEXT loop of 


O TO 2+Pi 


This gets the computer all the way around the circle. (The computer is working 

in radians again.) Just as with the third number in the DRAW command, using 

PI would give a half circle, .5*PI would give a quarter circle, and so on. But 

there’s a difference: with PLOT you can begin and end at any point of the circle. 
Here are what you might call the “PI points” of a plotted circle: 


0 or 2*Pi 


1.5*Pi Sp 


Pl 
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So, while using 0 TO PI will give you a half circle, it will give you the right half. 
For the left half, you have to use PI TO 2*PI. 

The top half is a little tricky: you have to go from 1.5*PI to .5*PI. Using 
those end points with “STEP —1” will give you the bottom half of the circle, 
drawn counterclockwise. You have to think of a half circle being PI more than 
the beginning point, and use 1.5*PI TO 2.5*PI. In fact, you can redefine the PI 
points like this: 


1.5 *Pl 3.5 *PI 2.9 =P .5*PI 





PI 


Write programs to draw the bottom half of the circle, the lower right 
quarter, and the three-quarter circle beginning at the bottom of the circle. 

The PI points we have been using work for the clockwise circle only. The 
counterclockwise circle begins at the 3 o’clock position, and its points are: 


2 *P| 


PI 0 


1.5*Pl 
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Spirals 


If you were trying to describe the relationship between a circle and a spiral, you 
could say that a spiral is a circle whose diameter, as you are drawing it, gets 
bigger and bigger. You can PLOT a spiral by making the r value change on every 
loop: just let it be defined in terms of the control variable. And let the control 
value pass the 2*PI limit so you will get a continuing spiral. 


10 FOR v=0 TO 10#PI STEP PI/150 
15 PLOT 127+(2e#v) SIN uv »874+¢0249)24CO05 v 
20 NEXT v 


You can change the distance between the lines of the spiral by changing the r 
variable: try using v, or 3*v. The spiral will end sooner if you use a lower number 
to multiply PI in line 10. 

The program takes quite a while to run because the points are plotted so 
close together. Try a dotted line spiral by making this change: 


10 FOR v=0 TO 10#PI STEP PI/20 


You will see that as the spiral gets larger, the dots are farther apart. 
You can draw the spiral backwards, that is, from the outer edge in, by using 
negative STEPs in the loop: 


10 FOR v=10#PI TO O STEP =-PI/150 


Ellipses 


You can use the circle formula to draw ellipses, or ovals. Just use two different 
values for r: 


10 FOR u= TO 2#Pl STEP PIZi150 
15 PLOT 127+20#SIN yv »87+40#CO5 v 
20 NEXT vy 


You can change the proportions of the ellipse by changing the relation between 
the two r values: try 20 and 60, or 30 and 35. To get an ellipse that is oriented 
horizontally, make the first r value larger than the second. 

All of the variations of the circle program are applicable to ellipses. You can 
plot ellipses in separated dots, clockwise or counterclockwise, beginning and 
ending at any of the PI points. You can even do elliptical spirals: 


10 FOR =O TO 1ZePl STEP P17 


15 PLOT 12740280) 45IN v»Bb/tueCOS v 
20 NEXT v 
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By combining partial ellipses and circles, you can draw the treble clef: 


The clef begins with a straight line, then, starting from the top, the right half of a 
clockwise ellipse is needed. Next comes the left half of a counterclockwise circle, 
then the right half of a slightly smaller circle, still counterclockwise. 


10 FOR y=253 TO i150:PLOT 127,ys:NEXT y 

15 FOR v=#0 TO PI STEP PI/150 

20 PLOT 127+10%SIN v,120+30x%COS v 

25 NEXT v 

30 FOR v=. 5%PI TO 1.5xFI STEP PI/150 

35 PLOT 127+30%xCOS v,60+30kK8IN v 

40 NEXT v 

45 FOR v=1.5%PI TO 2.5%*PI STEP PI/150 
50 PLOT 127+235xCOS v,55+25xSIN v 

55 NEXT v 


LINE NOTES 


10 Plots the straight line. 


15—25 Plots the right half of the ellipse. 
30—40 Plots the large half circle. 
45-55 Plots the smaller half circle 








Functions 


INTRINSIC FUNCTIONS 


In a statement such as INT A = B, the value of B depends on the value of A. INT 
is the function, and A is its argument. 

The T/S has many intrinsic functions, both numeric and string. That is, you 
can say, for example, 


PRINT SOR 16 


and the computer will calculate the square root of 16. You do not have to define 
the mathematical operation that finds the root. 


Number Conversions 


Many times the computer will not give you accurate answers because exact 
translations from the binary operations it performs to the decimal answers you 
want are not possible. While this may sound strange, it is not at all unusual. Just 
translating from fractions to decimals (both very familiar systems) causes in- 
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accuracies. For example, we are used to estimating that 1/3 is equal to .33. But 
that is not at all accurate, because .33 x 3 is equal to .99, not 1. 

Large computers have built-in correction routines for binary/decimal prob- 
lems, but the T/S doesn’t, and you should be aware that the translation 
problem exists. 


The Integer Function 
The use of INT is straightforward. It rounds numbers with decimals down to 
whole numbers so that 

INT(3+2) = 5 

INT(.8) = 0 

INT(10.7) = 10 


Since INT rounds down, applying it to negative numbers gets these results: 


INT(-5,.,2) = -6 
INT(-.8) = -i 
INT(-10.7) = -11 


There are certainly times when you will prefer that a number be rounded to 
the nearest integer. In that case, simply add .5 to the number before the INT 
function is applied: 


INT(S-¢24+-5) = INT(S.7) = 5 
INT(.8+.5) = INT(1.2) = 1 
INT(10,7+.5) = INT(11,.3) = 14 


Adding .5 before rounding works because when the original number has a 
trailing decimal lower than .5, it will still be below the next integer even when .5 
has been added to it; INT will round it down to the number it was closest to in 
the first place. 

When the original number has a trailing decimal of .5 or higher, the addi- 
tional .5 will bring it to, or past, the next whole number; when you INT the 
result, you will have the next highest whole number after the original number. 

Try the following program to see what a difference rounding down and true 
rounding might make to some randomly generated numbers. 


10 FOR a=1 TO 20 

15 LET n=RND#100 

20 PRINT INT neINT(nt+.9) 
2> NEAT a 
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Automatic Integering 


The computer automatically applies INT to many numbers—for instance, to any 
noninteger number used with PRINT AT or PLOT. If you try 


PRINT AT 3-4:+8,.631 
the computer will PRINT AT 5,6. This means that in many programs it is not 


necessary to INT random numbers that stand for rows and columns. Instead, 
just use 


LET r=RND#22:LET c=RND#32 


Almost any time an integer is needed as the argument for a function (TAB 
or INK, for example) the number supplied will be automatically INTegered. 
You can, for instance, condense 


LET 1=INT(RND#8) 
PRINT INK i:"Hello" 


down to 


PRINT INK (RND*¥8)3"Hello" 


Even and Odd 


You can use INT to determine whether a number is even or odd. If a number 
is even, it can be divided by 2 with no remainder, and the result will be an 
integer. So, 


n/Z2=INT(n/2) 
whenever n is an even number. If n is an odd number, then 
n/2¢>INT(n/2) 


because there will be some decimal fraction after n/2 when n is odd. 

Sometimes even/odd testing can be very important. In the music staff 
program presented at the end of the book (developed from an exercise in 
Chapter 2), a blank space has to be printed over the note when the note is 
printed on an even-numbered row, but a line has to be printed over it when it is 
printed in an odd-numbered row. Such a situation can be handled in this way: 


IF r(/25ENT (r72) THEN PRINT AT foj” * 
IF r/2<>INT (r/2) THEN PRINT AT reos"-" 
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Dollars and Cents 


Working with the two decimal places used for monetary values presents special 
problems. In the section on numerical arrays, you had to INPUT only whole 
dollar amounts for monthly expenses, because a category average might other- 
wise have come up to be 47.89765, throwing off all the neatly arranged columns 
on the screen. Using INT, and a few other mathematical tricks, you can round 
off such numbers to the nearest cent. 


Since you have to allow for the possibility of dollar amounts that have 


anywhere from no decimal places to three or more, any rounding formula has to 
work in every situation. The following procedure, by shuffling the decimal point 
around a bit, will round any number to the nearest hundredth: 


1. Multiply by 100. 
2 Add-3, 

3. Apply INT. 

4. Divide by 100. 

This is what happens to numbers subjected to this rounding treatment: 
Number K100 +,5 INT 4/100 
a 2300 3200.5 2300 Zo 

Zen 12240 12240.5 12240 22u 
47.98 4798 4798.5 4798 47.98 
9:217 Fisz 2.2 ££ ee 
12.6752 1267.52 1268.02 1268 12.68 


As you can see, all the numbers were rounded to the nearest cent amount. 


This is the routine that will do the dollar-and-cents rounding: 


DIM a(S) 

PRINT "Enter 4 dollar and cents amounts" 
FOR iwi TO 4: INPUT adi) 

LET a(3)2a(3)+ali) 

NEXT i 

LET vwa(S) /4 

PRINT "The average amount is "jv 

PRINT "In round numbers: " 

PRINT INT (v*100+.5) /100 


Notice the parentheses in line 45 that ensure the mathematical operations will be 
performed in the proper order. 
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Absolute Values 


The ABS function returns the absolute value of a number, its value without any 
negative sign: 

ABS 3=5 

ABS -3=5 


This next short program uses ABS; it tells you the difference between any 
two numbers that you INPUT: 


10 INPUT a+b 
15 PRINT "The difference is ":ABS(a-b) 


Without the ABS function, if your first INPUT is smaller than the second, the 
difference would be reported as a negative number, which doesn’t make 
much sense. 

Note how important the parentheses are: without them, the computer would 
assume you meant (ABS a) —b. And b subtracted from the absolute value of a is 
quite different from the absolute value of (a—b). If ais — 5 and bis 6, 


ABS a-b = (ABS -3)-6 = 5-6 = -Í 
ABS (a-b) = ABS (-5-G) = 11 
The computer automatically applies ABS in some cases: for the numbers in 


a PRINT AT statement and for the x and y coordinates of a PLOT statement, for 
example. 


Using SGN 


The SGN function (called signum, to differentiate it from the trigonometric sine) 
boils every possible number down to one of three numbers: 1, 0, or —1. 

If the argument of SGN is a negative number, the result is — 1; a positive 
number as an argument results in 1; a 0 argument returns a 0. 

SGN 22=1 

SGN -7=-1 

SGN O=0 

You might use SGN in game score calculations. If a game consists of several 


rounds and for each round the player receives or loses a point based on his 
performance in the round, you can use: 


LET SCORE=SCORE+SGN( ROUND) 
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If the points for the round are over 0, SGN(ROUND) will equal 1 and the 
player will receive a point. If the score for the round is below 0, SGN(ROUND) 
is — 1 and a point is subtracted from the overall score. If the total for the round is 
0, then SCORE remains the same because SGN(ROUND) will equal 0. 


Roots and Powers 


When a number is multiplied by itself, we say it is sguared; when it is multiplied 
by itself twice, we call it cubed. The usual mathematical notations for these 
operations are 


Squared(5 x 5): 5? 

Cubed(5 x 5 x 5): 5° 

There are no convenient names for operations involving a number multi- 
plied by itself more than twice; instead, we speak of powers and say that a 
number is raised to a power: 

(5x5 x5 x5) is 5*, or 5 to the fourth power 

(5x5x5x5*x5) is 5°, or 5 to the fifth power 

The operation of raising a number to a power is called exponentiation; the 
superscripted number that indicates how many times the base number has been 


used in the multiplication process is called the exponent. The computer uses the 
up arrow (tT) to show exponentiation. Try 


10 FOR p=2 TO 5 
15 PRINT "2 raised to the Power of "SPs" is "S2TP 
20 NEXT P 


Square Roots 


The function SQR finds the square root of a number; that is, the number that 
when multiplied by itself will give the argument of SQR: 
SQR 4=2, because 2 x 2=4 
SOR 9=3, because 3 X3=9 
10 FOR n=0 TO 40 STEP 2 
15 LET s=SQOR n 
20 PRINT ns" is "555" squared" 
29 NEXT n 
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The Pythagorean theorem states that “The sum of the squares of the sides of 
a right triangle is equal to the square of its hypotenuse.” This relationship can be 
programmed in the following manner. If you input the lengths of the two sides of 
a right triangle, the computer will tell you the length of the hypotenuse (the side 
opposite the right angle): 


LO INPUT "Side 1 “isi.2"Side Z "isz 
15 LET h=SQR(siT2+s2T?2) 
20 PRINT "The hypotenuse is "Shs" units long" 


The formula in line 15 adds together the squares of the two sides; this equals the 
square of the hypotenuse, so the square root of that figure is the length of the 
hypotenuse. 


Other Roots 


As you may have realized, squaring and finding the square root are com- 
plementary operations: 


The square of4is16 (4T2=16)., 
The square root of 16is4 (SOR 1G=4), 


Interestingly enough, we can find a square root by raising a number to a 
power that is the inverse of two: 1⁄2. 


iG tT (1/2) =square root of 16, or 4 
You can use the inverse of any number in this manner to find a root: 


271T(1/3) =cube root of 27, or 3 
321(1/5) = fifth root of 32, or 2 


Logarithms 


Using logarithms lets you work backwards with bases and exponents: given a 
number, you can figure out what power a base was raised to in order to arrive at 
that number. Of course, the computer has to work from a base number—the 
number that was raised—to figure out the exponent. 

Since the computer deals in natural logs, it uses 2.718282 as a base. That 
means that given 2.718282" = 1000, you can use the LN (logarithm) function to 
find out what n equals. Try 


PRINT LN 1000 
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While natural logarithms have specific applications in calculus, you might 
not care to what power 2.718282 has been raised to obtain a particular number. 
So, although the computer works with natural logs, you might want to convert to 
a common log, which is decimal-based, using 10 as the base number. 

To convert a natural log to a common log, you can divide by LN 10. Try 


PRINT LN 1000/7LN 10 
As you know, 1000 is 10 raised to the third power. 


Exponents 


When you are working with natural logs, you can specify the exponent to use 
with the 2.718282 base, and get the answer. For example, PRINT EXP 2 will 
return 7.3890561. Although PRINT 2.718212 will return 7.389057, the discrep- 
ancy is due to the binary/decimal conversion problem. LN and EXP are com- 
plementary operations. 


TRIGONOMETRIC FUNCTIONS 


Trigonometry is a branch of mathematics based entirely on the properties of a 
triangle. It allows us to deal with a triangle in terms of its angles, the lengths of 
its sides, and the relationships between its various aspects. 


B 


y C 


If we know what angle A is, we can find the ratio between sides x and z, or y 
and z, or x and y. We find these ratios by using the trigonometric functions of 
sine, cosine, and tangent. 

The sine of angle A is x divided by z: SIN A=x/z 

The cosine of angle A is y divided by z: COS A=y/z 

The tangent of angle A is x divided by y: TAN A = x/y 


Unfortunately, the computer is still thinking in radians, so if you want the 
sine of a 90-degree angle, you cannot use SIN 90. A radian is equal to about 57 
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degrees, or 1 degree = PI/180 radians. So, to find the sine of 90 degrees, you 
would have to use 


PRINT SIN (90*#(PI/180)) 

To find the cosine and tangent of an angle, use 
PRINT COS angle *(PI/180) 
PRINT TAN angle *(PI/180) 


Programming with the trigonometric functions is easier if you assign the 
radian conversion (PI/180) to a variable: 
LET r=PI/180 
and use r in place of that expression. 
You can use the following program to print out the sine, cosine, and tangent 
of five different angles between 5 and 25 degrees: 
S LET r#PI/180 
10 FOR a=5 TO 25 STEP 5 
iS PRINT "“Angle",a 
20 PRINT "Sine", ,SIN(axr) 
25 PRINT "Cosine",COS(akr) 


30 PRINT "Tangent", TAN (axr) 
35 NEXT a 


Inverse Trigonometric Functions 


There are also trigonometric functions that allow you to find the size of an angle 
when all you know is the ratio of two sides. 

Arc sine: ASN X gives the angle whose sine is X. 

Arc cosine: ACS X gives the angle whose cosine is X. 


Arc tangent: ATN X gives the angle whose tangent is X. 


The angles are, as usual, given in radians, not degrees. 


DEFINED FUNCTIONS 


Although the T/S has many built-in functions, it does not have every one you 
might want in a program. With the DEF FN statement, however, you can define 
your own mathematical and string functions. 

If, for instance, you wanted to be able to find 10% of any number, you could 
describe that “percentage function” this way: 


PCTG=n*#.1 
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To define a function for the computer, you must name it—that is, give it a 
variable name—and then describe it, with the DEF FN statement (under the 1 
key). To define the percentage function above, you would use 


DEF FN f(n)=n#¥.1 


The variable f is the name of the function. The parenthetical n means that you 
want to define function f for n—that the function will be performed on the 
number n in the way described to the right of the equals sign. 

The DEF FN f(n) statement tells the computer that every time you use 
function f, it should take the argument (the number you put in the parentheses) 
and multiply it by .1, to get 10%. 

To use a function that you have defined, use FN, under the 2 key. Try this 
short program: 


10 DEF FN f(nd=n*¥.1 
135 PRINT FN f(100) 


You do not have to use a constant as the argument for FN; a variable will work 
and is more versatile: 


10 DEF FN f(nd=n*.1 
15 FOR n=1 TO 20 

ZO PRINT ns FN fin? 
29 NEXT ñ 


Although n was used to represent the argument in the DEF FN statement, it 
did not have to be used as the input or FN variable. This program will do exactly 
the same thing as the previous one: 


10 DEF FN f(n)afn*ai 
13 FOR a=1 TO 20 

20 PRINT a+ FN f(a) 
29 NEAT a 


The variable that stands for the argument in the DEF FN statement just tells 
the computer that any number (and a variable represents a number) used with 
the function should be treated in the defined manner. 

Since line 20 could have just as easily been written 


20 PRINT a+at¥.l 


this program is actually a poor example of the power of the DEF FN statement. 
What if you wanted to find 10% of the square root of a given number? 
Change line 10 as follows: 


10 DEF FN f(n)d=SOR nfl 
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Or, if you want to find twice the value of the square root of a number, rounded to 
the nearest integer: 


10 DEF FN f(nd=INT(2*50R nt+.5) 


Of course, this is a formula that you would never need, but it does demonstrate 
the usefulness of DEF FN. With the formula defined as a function early in a 
program, you won’t have to type the whole formula again every time you have 
to use it. 


Practical Applications 


Consider the routine used to round dollar amounts to the nearest cent. You 
had to use 


INT (n#100+4+.5)/100 
You can define your own dollar-rounding function with that formula: 


10 DEF FN d(n)=INT (n*%100+.5) 7/100 

15 DIM a(S) 

20 PRINT "Enter 4 dollar and cents amounts" 
25 FOR i=1 TO 4 

30 INPUT a(i): LET a(S) a(S) t+ali>d 

35 NEXT i 

40 LET v=a(S) /4 

45 PRINT v, FN dv) 


The centering routine in Chapter 3 used the following formula: 
PRINT TAB 1G-LEN a#/2 


Since “LEN a$” is a number, the centering routine can be defined by using a 
variable name for it: 


10 DEF FN c(n)=16-n/2 

135 INPUT a$ 

20 PRINT TAB FN c(LEN a$}; a$ 
29 GO TO 15 


The PRINT statement may look strange to you, but “LEN a$” is a number, so it 
can be used as the argument for the FN, and “FN c(LEN a$)” is also a number, 
so it can be used as the argument for TAB. 
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Defining Random Number Functions 


One of the most convenient uses of DEF FN is for random number generation in 
specific ranges. You can define a random number function in terms of how many 
different numbers you want generated: 


10 DEF FN r(n)=INT(RND#¥n) 
15 PRINT FN r(10) 
20 GO TO 15 


This program will print random numbers from 0 through 9—10 different num- 
bers, since 10 is the argument of the defined function. 

If you want 10 numbers, 1 through 10, you cannot use 15 PRINT FN 
r(10 +1) because that is the same as 15 PRINT FN r(11) and will give you 11 
numbers, 0 through 10. Instead, you must use: 


IS PRINT FN r(10)+1 


Keeping the 1 outside the parentheses means it will be added to the result of the 
function, and you will wind up with numbers from 1 through 10 instead of 0 
through 9. 


Multiple-Variable Functions 


Functions can be defined in terms of more than one variable. That is, the result 
of the function can depend on more than just one quantity. 

For a versatile percentage function, you need to be able to alter not only the 
number you are working on, but also the percentage. You can define such a 
function this way: 


DEF FN f(n+P)=n#¥eP 


The function named f is defined in terms of what you are going to use as the 
number (n) and as the percentage (p). Try 


10 DEF FN f(n+P)=n*¥P 
iS INPUT nee 

20 PRINT FN f(neP) 
Zo GO TO 15 


The first number you enter will be the number from which the percentage is 
taken. The second number you enter is the percentage you want taken. Remem- 
ber that 25% is .25 and 5% is .05. 
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A percentage function might be easier to use if you can just enter a number 
and have the computer convert it to the proper decimal fraction. So, redefine 
your function: 


10 DEF FN f(neP)=n¥0pP/100) 
135 INPUT neP 

20 PRINT FN f(nsP) 

Zo GU TU is 


Now, for the second INPUT, you can enter 50 for 50% and 2 for 2%. 


More Random Functions 


You can improve the defined random number generator by using two variables. 
The basic formula, presented in Chapter 2, is 


INT (RND#N+#L ) 


where N is how many numbers you want and L is the lowest of the range. 
It is easier, however, to think in terms of what are the highest and lowest 
numbers you want, in which case the formula can be redefined: 


INT (RND*#(H-L+1)+L) 


This will work because the number of random numbers is one more than the 
difference between the highest and lowest numbers in the range. 

Defining that formula as a function in a program lets you input the values for 
L and H: 


10 DEF FN r(L+H)=INTCRND#(H-L+1)+L) 
1S INPUT LH 

20 PRINT FN r(L+H) 

29 GO TO 15 


Many Multiple Variables 
The number of variables for which a function is defined is not limited to two. 
You can, for instance, define an averaging function for four numbers: 

DEF FN v(arbeGed) =Catbtctd) /4 


The following program is an adaptation of the dollar-and-cents rounding 
routine. It defines and uses three functions: one for totaling, one for averaging, 
and one for rounding to the nearest cent. 
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10 DEF FN d(n)=INT (nk100+.5) /100 

15 DEF FN t(a,b,c,d) =atbtc+d 

20 DEF FN v(a,b,c,.d)=(atb+c+d) /4 

29 FRINT "INPUT 4 dollar and cents amounts" 
30 INPUT a’b’c’d 

35 PRINT a’b’c’d 

40 PRINT"Total", FN t(a,6,c,d) 

45 PRINT" Average", FN vias,b,c,qd) 

S0 PRINT"Rounded Average", FN d(FN v(a,b,c,d)) 


Since the averaging function represents a number, it was used as the argu- 
ment for the rounding function. Can you rewrite the program so the averaging 
function is defined in terms of only one variable and the totaling function is used 
as its argument? 


Defining String Functions 


String functions can also be defined with DEF FN. To define a function that will 
slice the first letter off a string, use 


DEF FN a$(b$)=b¢(2 TO) 


Since FN a$(b$) is a string, just as FN a(b) is a number, you can assign a 
name to it: 


LET c#=FN a%(b$) 
This program will continually slice the first letter off a string: 


10 DEF FN a#(b®)=b#(2 TO) 


15 INPUT n$ 

20 FOR i=1 TO LEN n$ 
25 PRINT n$ 

30 LET n$=FN a(n) 
35 NEXT i 


In line 30, n$ is redefined to equal itself minus its first letter. The loop is set up to 
run as many times as there are letters in the string so that, eventually, every 
letter is sliced away. 

This routine will cut a string in half and reverse it so the second half of the 
string will be printed first: 


10 DEF FN a$(b$)=b$(LEN b@/2+1 TO LEN 6%)+ b$: TO 
LEN b#/2) 

15 INPUT n$ 

20 PRINT FN a(n) 


102 CHAPTER SIX 


The function defined in line 10 slices and concatenates b$ into its second half 
(from one character past half its length to the end) plus its first half (from the 
beginning to half its length). 

How would you define a string function that would reduce a string to only its 
first and last letters? 

String functions can also be defined in terms of more than one variable. This 
short game program will take two input strings and trade their first and last 
letters so that the first string begins and ends with characters from the second 
string, and vice versa: 


10 DEF FN a#(b#,c#) =b#(1)+c#(2 TO LEN 
c%-1)+bS(LEN b$) 

15 INPUT n$, m$ 

20 PRINT FN a%(n#,m%),FN at(m%,n$) 


The formula in line 10 adds together the first letter of the first string, 
everything but the first and last letters of the second string, and the last letter of 
the first string. In line 20, the routine is applied twice, once with m$ as the string 
in the middle, once with n$ in the middle. 

As a game, it works this way: one player can input two related words 
(salt/pepper, heaven/earth) and the second player can decode them. Even when 
the second player knows the slicing routine that was done, it is not so easy to 
unscramble them quickly. 








More Graphics 





MOTION 


It is easy to create the illusion of motion on the computer screen. In fact, you 
have already done so with the sketcher programs. In those programs, lines 
seemed to grow as they moved in different directions. 

There are basically two types of illusory motion. In the first, an object seems 
to move around because it disappears from one spot just as it appears in another. 
In the second, the object remains in the same spot on the screen, but changes in 
some way. 


Using PRINT AT 


When the PRINT AT command is used, the character you are printing erases 
whatever else was in that spot (unless, of course, OVER is on). 

You can create a shrinking ball by alternating a capital O, a lowercase o, and 
a period in the same spot: 


10 PRINT AT 109155"0" 
20 PRINT AT 10%155"0" 
30 PRINT AT 10%155"," 
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Of course, it happens so quickly, you can barely observe the change. If you adda 
PAUSE between PRINT AT statements and loop back to the beginning of the 
program, the ball will alternately enlarge and shrink: 


10 PRINT AT 10,15; "0" 
15 PAUSE 10 
20 PRINT AT 10,15}; "0" 
25 PAUSE 10 
30 PRINT AT 10,15;"." 
35 PAUSE 10 
40 GO TO 10 


You can experiment with different values for PAUSE until you find the one you 
like best. 

This program uses PRINT AT character replacement to achieve the effect of 
a face winking at you: 


10 CIRCLE 131,87,50 

15 PRINT AT 9,13; "O"3AT 9,193 "0" 

20 PRINT AT 11,16 "o";AT 14,155 "RXR" 
25 FOR n=1 TO 5 

30 PRINT AT 9,19;"—"sPAUSE 10 

35 PRINT AT 9,19;"0":PAUSE 10 

40 NEXT n 


Moving Characters 


You can move something around on the screen by changing its position with a 
loop. In this program, the “ball” is erased from its old position at the same time 
it is printed in its new one. 


10 FOR n=0 TO 20 
15 PRINT AT 10ens" D” 
20 NEXT n 


Because the string that is being printed begins with a space, that space is 
printed over the last O that was placed on the screen. This works only if you are 
moving left to right; you have to end the string with a space for right-to-left 
motion (and you might slow it down a bit): 


10 FOR n=20 TO 1 STEP-1 
13 PRINT AT 190en3s"0 "PAUSE 5 
20 NEAT n 
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This “space within the string’’ method is of limited usefulness because it 
works only for horizontal motion. A better technique is one that separately 
erases the character before printing it in the new position: 


10 FOR n=0 TO 20 

15 PRINT AT 10¢en3s"O":PAUSE 5 
20 PRINT AT 10¢en5" " 

29 NEXT n 


This will work even if you change the loop so that the ball travels to the left. It 
also works for vertical motion. Edit the PRINT AT statements to 


19 PRINT AT ne195"0":3PAUSE 3 
ZO PRINT AT neilSs" * 


You don’t have to print over the old position with a space; you can use 
another character instead. Changing line 20 of the original program to 


ZO PRINT AT 10en5"." 


will give the effect of the ball leaving a trail of dots. 


Another Sketcher 


This next one isn’t really a sketcher program, but it uses the same technique 
(with character erasure added) as is used to move something around on 
the screen: 


10 LET r#10:LET c=15 

29 PRINT AT r,oc3"x" 

30 IF INKEY$="" THEN GO TO 30 

40 LET m#@INKEY® 

45 PRINT AT r,c3" " 

S0 IF m$="f" THEN LET c=c~-1 

oo IF m¢@="r" THEN LET r=r-1:LET c=c-l 
60 IF m$="h" THEN LET c=c+1 

65 IF m$="y" THEN LET rer-1:LET c=c+1 
70 IF m$="b" THEN LET r=r+i 

75 IF m$="n" THEN LET r=r+1i:LET c=c+1 
80 IF m$="t" THEN LET r=r-1 

85 IF m#="v" THEN LET rertislLET c=c-1 
90 IF r=22 THEN LET r=0 

100 IF r=-1 THEN LET r=2i1 

110 IF c=32 THEN LET c=0 

120 IF c=-1 THEN LET c=31 

130 GO TO 20 
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When you try the program, you will see that the asterisk blinks as you move 
it around. That’s because it is being erased from the screen before the values of r 
and c are changed. While the computer calculates the new row and column 
positions, there is nothing at all on the screen; the asterisk is printed at the new 
position when the calculations are completed. The effect is even more pro- 
nounced when you add the PAUSE that gives you more control over the 
movement of the asterisk: 125 PAUSE 5. 

To stop the blinking, you have to erase the asterisk immediately before the 
new one is printed. The problem is in keeping track of just what the old position 
was, since r and c have been changed. By deleting line 45 and replacing it with 


45 LET pr=rs:LET pce=c 


you can store the previous row and column positions in variables pr and pc 
before r and c are changed. Then add: 


128 PRINT AT Prepos" " 


The old asterisk is erased just before the new one is printed, resulting in a 
smooth, nonblinking motion around the screen. In fact, you can delete the 
PAUSE in line 125 to achieve an even smoother motion. 

Just as a taste of things to come, try adding 


2 FOR n=1 TO 30 

4 LET r=INTCRND#¥22):LET c=INTCRND#32) 
G PRINT AT reos"." 

8 NEXT n 


This will put 30 dots at random spots on the screen. You can move the asterisk 
around the screen and erase the dots by passing over them. Now all you need is 
some sound, some scoring, a timer, and programmed characters. 


Moving Strings 


The techniques for moving a character around on the screen also apply to 
moving strings. Try 


10 LET a$=" back" 

15 PRINT AT 190,0;a%:FAUSE 30 
20 FOR c=0 TO S2-LEN a$ 

25 PRINT AT 10,c3 as 

30 NEXT c 

353 LET b$="forth " 

40 FOR c=32-LEN b$ TO O STEF ~1 
45 FRINT AT 10,c3b% 

50 NEXT c 
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Using the strings with a built-in space works fine for the horizontal motion in 
that program, but for vertical motion you have to erase the string separately: 


10 LET at="bounce":LET s$=" j 

15 FOR r=0 TO 21:FRINT AT r,12;3 a% 

20 PAUSE S:PRINT AT r,123s%:NEXT r 

29 FOR r=21 TO O STEP<-1:FRINT AT r,123 a% 
30 PAUSE SsPRINT AT r,1238%sNEXT r 


Try changing these lines: 


13 FOR r=0 TO 21:PRINT AT torias 
20 PAUSE 5S:PRINT AT rorss#:NEXT r 


Then run the program again. 


Teletype 


To design a program that will move a string across the screen so that it will 
appear from the right edge and disappear on the left, you have to consider three 
routines: printing the string one letter at a time until it is all on the screen, 
moving the string all the way to the left, and repeatedly slicing the first character 
from the beginning of the string until it is down to nothing. 

The first section of the program lets you INPUT a string (less than 32 
characters long) and then prints it appearing from the right edge of the screen. 
This effect is accomplished by printing the first letter of the string in the last 
column, then printing the first two letters in the last two columns, and so on. 
Run this: 


> LET s=0 

10 INPUT a 

15 FOR c=31 TU 0 STEP -1 
20 LET s=stl 
29 PRINT AT 10+csa%( TO 5) 
30 NEXT c 
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LINE NOTES 


5 Initializes the variable that will keep track of what part of a$ is being 
sliced. 


15 Sets up the loop that will place the print position in ever lower columns. 
20 Increases the value of s on each loop. In this way, the first loop takes 


only the first letter of a$; the second loop takes two letters, the third loop 
takes three, and so on. 


25 Prints the proper slice of a$ in the proper column. 


30 Loops back for the next column number and new a$ slice. It is not 
necessary to erase what has already been printed because the new portion 
of the string will overprint the old. 





The computer stops with a “bad subscript” error when the entire string is on 
the screen because it was trying to slice a$ with a number higher than the number 
of characters in the string. So add a line that jumps the computer out of the loop 
if all of a$ is on the screen: 


2/ IF c=32-LEN á$ THEN GO TO 35 


If the column number is 32 minus the length of the string, then all of a$ is on 
the screen. 

The next section of the program merely moves the string to the left, printing 
a space at the end of the string on each move, to erase the character that was 
printed there: 


39 FOR c=c ITU U STEP -1 
40 PRINT AT 10 r0 iage” " 
43 PAUSE 3 

50 NEXT c 


This FOR-NEXT loop has to go down to 0 for the column number, but has to 
start just where the last loop left off. We just use the column variable from the 
last loop as the starting point for this loop. 

The final loop has to keep printing the string at the 0 column, so the 
FOR-NEXT loop won’t change the column number. However, since the string 
has to be printed with the leading character missing each time, the control 
variable will serve as the slicer: 


39 FOR c=1 TO LEN a$+i 


GO PRINT AT 10,O0$a$(c TO)+" " 
65 PAUSE 5:NEXT c 
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On each loop the printed part of a$ gets shorter because of the slicing command 
in line 60. A trailing space had to be added to erase the last character, just as in 
the leftward-motion loop. Note that the loop must be performed as many times 
as there are characters in the string, with one additional loop to get the last letter 
off the screen. This is how the completed program should look: 


5 LET s=0 

10 INFUT a$ 

15 FOR c#31 TO O STEP -1 

20 LET s=s+1 

29 PRINT AT 10,cya#( TO s) 

27 IF c#®32-LEN a® THEN GO TO 35 
30 NEXT c 

35 FOR c=c TO O STEP -1 

40 PRINT AT 10,csast+" " 

45 PAUSE 5S 

SO NEXT c 

55 FOR c=i TO LEN a$+1 

60 PRINT AT 10,0sa%(c TO)+" " 
65 PAUSE S: NEXT c 


Postscript 


Although all these programs concentrate on how best to erase something from 
its previous position, don’t ignore the possibility of a special effect through 
nonerasure: 


10 LET a$="zip" 

iS PRINT AT 10,O0;a%: PAUSE 30 
20 FOR c#0 TO 25 

29 PRINT AT 10,c;a% 

30 PAUSE 2:NEXT c 


USER-DEFINED GRAPHICS 


There are some techniques in T/S BASIC programming that you can understand 
better if you understand how the computer’s memory is organized. Since pro- 
gramming your own characters is one of these techniques, we have to take a 
brief detour into the computer’s brain; and since the computer “thinks” in 
numbers, the first thing you should understand is its number system. 
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Bits and Bytes 


The binary number system uses only two digits: 0 and 1. Just as our decimal 
system relies on the position of a digit to determine its value in “tens” (powers of 
ten), the binary system values numbers in “twos.” 


DECIMAL. 
hundreds tens ones 
(10%) (10*) (109) 
1 “ 1 
BINARY 
sixty-fours thirty-twos Sixteens 
Ce") (2) ta 
1 1 1 
eights fours twos ones 
cen) al Ce) aa 
1 Q © 


If you add up the numbers represented here, you will see that 121 in decimal 
is the same as 1111001 in binary. 

The computer stores numbers in bytes that are eight bits, or digits, long. The 
highest binary number a byte can hold is 11111111, or 255 decimal. Each byte in 
the computer’s memory has its own address, a number that refers to its place in 
memory. 

Now, let’s look at what all this has to do with designing your own graphics. 
When you tell the computer to print an A, it has to look up the pattern it needs 
to print that character. Each character has a “map” of its pattern stored in eight 
consecutive bytes of the computer’s “character generator.” The eight bytes that 
correspond to the letter A are: 


© 
QO 
OQ 
© 
O 
© 
Q 
O 


00011000 
00100100 
019000010 
01111110 
01000010 
091000010 
O0000000 
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The way a character appears on the screen is determined by its map in the 
character generator: when a bit is set to 1, a pixel of ink appears, and when the 
bit is 0, the pixel remains paper colored. 

There are 20 maps in the character generator that you can draw on by setting 
bits to 1’s or 0’s, thereby designing your own characters for the computer 
to print. 


POKE and USR 


When you want to put a number into a specific part of the computer’s memory, 
you use the command POKE. POKE is covered more thoroughly in a later 
chapter, but its usual form is: 


POKE aen 


where a is the address and n is the number you want to put in that address. 

With the USR function, you don’t have to worry about the actual address. 
USR “a” stands for the address that is the first byte of the map for the graphic A 
(the character that is accessed by switching to a G cursor and pressing the A 
key). So, 


PURE USR "a" +100 


would put the number 100 into the first byte of the map. The second byte of the 
map is USR “ʻa” +1, the third byte is USR “a” +2. USR “b” is the address of 
the first byte of the map for the graphic B, and so on. 

Each byte in a character map is one line of 1’s and 0’s. When you want to 
design a character, you decide what pattern of 1’s and 0’s will make up that 
character, and POKE the appropriate number into the correct address. 

USR is a reasonably clear method of getting at the addresses you need, but it 
is much easier to dispense with the USR function entirely, especially when you 
are designing more than one character at a time. Before doing so, however, let’s 
design two characters under the usual system, using the BIN function. 

If you want to design the symbols for the black suits in a deck of cards, the 
first thing you have to do is get some graph paper and draw, in an eight-by-eight 
grid, something like this: 
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Next, translate each line of open or filled-in squares into 1’s and 0’s: 


00011000 00111000 
001111900 001119000 
O1111110 00010000 
] 1111111 11010110 
11111111 1114111110 
11011011 1101011090 
00011000 00010000 
00011000 00010000 


Since the BIN function lets us use binary numbers directly, we can write a 
program that loads these numbers into the maps for the graphic A and B. By 
using READ-DATA, we can do the POKEing in a loop: 


10 FOR n#90 TO 7 

15 READ d 

20 POKE USR "a"+n,d 

25 NEXT n 

30 FOR n#0 TO 7 

35 READ d 

40 POKE USR "b"+n,d 

45 NEXT n 

~O PRINT "A", "B" 

55 DATA BIN 00011000,BIN 00111100,BIN 
01111110,BIN 11111111,BIN 11111111,BIN 
11011011,BIN 00011000,BIN 00011000 

60 DATA BIN 00111000,BIN 00111000,BIN 
00010000,BIN 11010110,BIN 11111110,BIN 
11010110,BIN 00010000,BIN 00010000 


Note that the strings in line 50 are the graphic A and B characters. 

Run the program; a club and a spade will be printed on the screen. You have 
drawn two character maps, and now the computer uses one of those maps when 
it has to print the graphic A or B. The new designs also appear in your listing. 

As easy as this method may be to understand, it requires a lot of typing— 
and it would be worse if you were doing more than two characters. By getting rid 
of both the USR and the BIN functions, you can streamline the program 
considerably. 


Direct Addressing 


Since USR “a” represents an address, you can use PRINT USR “‘a”’ to find out 
just what that address is. The computer will tell you that it is 65368. Using 


MORE GRAPHICS 113 


POKE 65368 isn’t any easier than typing POKE USR “a,” but the important 
thing to note is that the addresses for the user-defined graphic characters are all 
together: USR “b” comes right after the last byte of the map for the graphic A 
character. That means that by using the address number instead of the USR 
function, you can write a single loop to POKE in the data for both characters: 


10 FOR n=G65368 TO 65383 
15 READ d 

20 POKE nod 

Zo NEAT n 

30 PRINT "A" "B" 


Line 30 uses the graphic A and B. If you just ran the last program, a spade 
and club will appear instead of the A and B. The maps you draw remain in the 
computer’s memory until you turn the machine off—or until you draw over the 
maps by poking new values into the addresses that make them. 

The next thing you want to do is use decimal values instead of the BIN 
function in the DATA statements. You don’t have to do a lot of figuring; tell the 
computer to PRINT BIN 00011000. It will respond with 24. This may not seem 
any shorter than typing the BINs in the DATA statements, but you'll find that 
you will often have a totally blank line that you know is equal to 0 (and for which 
you would have to type BIN 00000000) or lines that repeat themselves within the 
character. You will also find certain combinations easy to remember; for exam- 
ple, a binary number with all the bits set at 1 equals 255, if just the right-most bit 
is at 1, the number equals 1, and so on. 

The DATA you need for the club and spade designs are: 


35 DATA 24 +60 +126 +255 9255 +219 +24 +24 
40 DATA 36 #56216 +214 +254 +214,16:16 


Compare the length of this program to the length of the one based on the 
USR function, presented earlier. 
Run this new program, and then enter as a direct command 


POKE 65372 +0 


List your prograin again—you will notice that the spade has been cut in two. 
By poking a 0 into the address that is in the middle of its map, you have changed 
that byte of the spade design; all the bits in that byte were set to 0, so none of the 
pixels appear as ink color on that line of the map. 

You can POKE 65372,255 to restore the design, or simply run the pro- 
gram again. 
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Using Defined Characters 


Defined graphics can make a program more understandable, more “‘friendly,”’ 
or, as in the following example, just more fun. This program combines the two 
basic motion techniques—it changes the character’s position, and it also replaces 
the character with another one. 

The basic routine is one that bounces a ball on the screen; but with pro- 
grammable characters, the ball flattens as it hits the bottom of the screen. There 
are three programmed characters: the round ball, a slightly flattened version, 
and a very flattened one. When typing in this program, you might want to first 
type in lines 5—25 and RUN that portion of the program. This will POKE the 
correct values into the maps for the graphic A, B, and C characters, and when 
you type in lines 35-70, the balls will appear instead of the letters. 


5 FOR n=65368 TO 65368+23 

10 READ d:POKE n.dsNEXT n 

15 DATA 60, 126, 255, 255, 255, 255, 126, 60 
20 DATA 0,0,0,60,126, 126, 255, 255 
25 DATA O,9,0,9, 60, 255, 255, 255 
30 FOR r=0 TO 20 

35 PRINT AT r,r "A":PAUSE 3 

40 PRINT AT rar" "NEXT r 

45 PRINT AT 21,213 "A"8PAUSE 3 

90 PRINT AT 21,21; "B":PAUSE 3 

55 PRINT AT 21,21; "C":PAUSE 3 

60 PRINT AT 21,21; "B":PAUSE 3 

65 FOR r=21 TO O STEP -1 

70 PRINT AT r,21;"A":PAUSE 3 

75 PRINT AT r,21;" ":NEXT r 


LINE NOTES 


5—25 Pokes the correct values into graphic A,B, and C addresses to make 
the three versions of the ball. 


30—40 Sends the ball, at an angle, to the bottom of the screen. 


35 Prints graphic A. 


45—60 Graphic A,B, and C characters. Replaces the round ball with the 
flattened versions, then prints the round ball again. This gives the illusion of 
the ball collapsing as it hits the ground, then regaining its shape as it 
bounces up. 


65—75 Bounces the ball back to the top of the screen. 
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The following routine is of more practical use. It offers a graphic method of 


choosing from a menu. The screen will show the choices, with an arrow that can 
be moved up or down to point to the desired selection: 





—p first choice 
second choice 
third choice 


fourth choice 
fifth choice 


The routine uses the vertical cursor controls to move the arrow and the 


space bar to indicate the selection when the arrow is properly placed. The 
subroutines to which the program would go are not included here, but the 
routine bases the GO SUB line numbers on the row in which the arrow appears 
when the space bar is pressed. 


FOR n=2 TO 10 STEP 2 

READ a$ 

PRINT AT n, 10; a% 

NEXT n 

DATA "first choice", "second choice", "third 
choice", "fourth choice", "fifth choice" 

FOR n#65368 TO 65375 

READ at POKE n,a: NEXT n 

DATA 0,8,12,14,255,14,12,8 

LET r=2 

PRINT AT r,8;"A" 

IF INKEY#="" THEN GO TO 60 

LET m@=INKEYS:LET pr=r 

IF m=" " THEN GO SUB r/2xk100 

IF m#@="6" THEN LET r=ær+2 

IF m$="7" THEN LET r=#r-2 

IF r<2 OR r>10 THEN PAUSE 8:FPRINT AT pr,83 
" "3GOTO 50 

PAUSE 8: PRINT AT pr,83" ":60 TO 55 
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LINE NOTES 


10—30 Prints the menu selections on the screen. Putting strings in a 
DATA statement makes it possible to print them to the screen using a loop. 
Although the control variable is valued at 2,4,6,8, and 10, for the row value 
inthe PRINT AT statement, the READ-DAIA construction is not affected by 
specific numbers, or by steps; the loop is performed five times, and there are 
five pieces of data to be read—that’s all that matters. 


35—55 Creates the arrow character. 


60—90 Moves the arrow according to which cursor control is pressed. 
Notice that the value of r is increased or decreased by 2 each time. When its 
value goes below 2 or above 10, the arrow is printed at the first choice 
again. No trap was needed for the user pressing a key other than 5 or 6; 
when any other key is pressed, lines 70, 75, and 80 are skipped, but line 90 
loops the program back to wait for another key to be pressed. 


70 This line checks whether the space bar has been pressed. If it has, the 
program jumps to a subroutine based on the value of r. The r/2*100 formula, 
because r can be 2,4,6,8, or 10, results in jumps to lines 100, 200, 300, 
400, or 500. 





Compound Characters 


While a defined graphic is designed in an eight-by-eight pixel character space, 
don’t limit yourself to such small maps—design a large graphic by combining 
two or more graphic characters. 

This next program, for instance, uses the graphic A map to store the back 
half of a Volkswagen Beetle, and the graphic B map to hold the front end. 
Once the correct values are poked into the right addresses, the string (graphic) 
“AB” will be a little car, and you can send it across the screen with a string- 
motion routine. 


10 FOR n=65368 TO 65368+15 

15 READ d:POKE n,ds:NEXT n 

20 DATA 7,31,63, 127, 255, 255, 60, 24 

29 DATA 240, 252, 254, 255, 255, 255, 60, 24 
30 LET a$=" AB" 

35 FOR c=0 TO 29 

40 PRINT AT 21,c¢3" AB" 

43 PAUSE 4:NEXT c 


You can also create vertical compound characters. Although they are dif- 
ficult to move as strings, you can achieve a different effect by using character 
replacement. The following program uses the graphic D to be the bottom half of 
a vertical figure, while graphic A, B, and C are alternately printed above it for 
animation purposes: 
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10 FOR n=65368 TO 65368+31 

15 READ d:POKE n,diNEXT n 

20 DATA 24,40, 60, 24, 60, 126, 153, 24 
25 DATA 24,40, 60, 24, 60, 123, 152, 24 
ZO DATA 24,60, 60, 24, 60, 120, 152, 24 
35 DATA 24,60, 36, 36, 36, 102,0,0 

40 PRINT AT 10,15; "A" 

45 PRINT AT 11,153 "D" 

50 PAUSE 2 

55 PAUSE S:PRINT AT 10,15;"B" 

60 PAUSE S:PRINT AT 10,15,;"C" 

65 PAUSE SsPRINT AT 10,153 "B" 

70 PAUSE SePRINT AT 10,15; "A" 

75 GO TO 55 


Compound characters can, of course, be made of any number of combined 
characters; mixtures of keyboard and defined characters can be used to create 
both static and animated displays. 

Appendix B offers a table of defined graphics and their decimal values for 
your convenience. One section of the table offers “building blocks” that can be 
combined with each other and with the keyboard graphic characters to create 
large pictures. And don’t overlook the possibilities of graphic characters com- 
bined with PLOT, DRAW, and CIRCLE designs. 


COLOR 


You may think you can get only eight basic colors from your T/S, but with clever 
programming it is not difficult to get over a hundred different shades and tones. 
Even without that fancy programming trick, you even have more than just eight 
color numbers (0 through 7) to work with: 8 and 9 can also be used with PAPER 
and INK. 


Transparent Ink 


An INK color of 8 calls for transparent ink; that is, it leaves the ink color as 
previously determined for any character cell. 

This program is a demonstration of the effect of INK 8. It covers the screen 
with randomly colored squares, then, beginning again at the top left corner, it 
fills the screen with asterisks. Each asterisk is the same color as the square that 
previously occupied its position. 


118 CHAPTER SEVEN 


10 FOR n=1 TO 704 
15 LET i=INT(RND%8) 
20 PRINT INK i3 "M's 
25 NEXT n 

30 PRINT AT 0,0} 

35 FOR n=1 TO 704 
40 PRINT INK 6; "x"; 
45 NEXT n 


LINE NOTES 


10 Sets up the loop to print a square in every character space on the 
screen. 


20 Prints a square (graphic from 8 key) in random color at current print 
position. The trailing semicolon is very important. 


30 Puts the print position back at the top of the screen. 


35 Uses transparent ink so the asterisk will take its color from the screen 
position. 





Contrasting Ink 


Ink color 9 indicates contrast, either black or white, depending on the paper 
color at that screen position. 

This program fills the screen with asterisks. Each character space has a 
random PAPER color, and the asterisk will appear in contrasting ink. 


10 FOR n=1 TO 704 

15 LET pP=INT(RND#8) 

20 PRINT PAPER PsINK 937%”; 
2> NEXT n 


More Colors 


Using the BRIGHT command, you can get more than eight colors from 
your T/S: 


BRIGHT 1:PAPER 2:CLS:BORDER 2 


You can see that the BRIGHT command makes enough of a difference to 
change the basic color to an entirely different shade. 

Even so, 16 colors is hardly the limit of the T/S color capability: with a little 
electronic cross-hatching, you have a practically unlimited palette. 
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The following program defines a checkerboard-like character that, when 
colored with different inks and placed on a white background, gives different 
shades of the INK color. The left side of the screen will show the regular and 
shaded INKs at normal brightness; the right half will show the colors at en- 
hanced brightness. 


10 FOR n#65368 TO 65375 

15 READ dsPOKE n,dsNEXT n 

20 DATA 204,51, 204,51, 204,51, 204,51 

25 FOR i#0 TO 6 

30 PRINT BRIGHT Og INK i; "es " ; 
35 PRINT BRIGHT 1; INK i; "Se" ; 
40 PRINT BRIGHT O; INK is AAAAAAAAAAAAAAAA" 5 
45 PRINT BRIGHT is INK i; "AAAAAARAARAAAAAAAA "3 
SO NEXT i 





LINE NOTES 


10—20 Creates the checkerboard pattern, storing it in the graphic A map. 


25—50 Prints solid and shaded inks in two brightnesses. Lines 30 and 35 
are 16 squares of the graphic on the 8 key; lines 40 and 45 are the graphic A 
character. The semicolons at the end of lines 30—40 are very important for 
the correct display. 





Of course, by trying various combinations of INK and PAPER, you can get 
even more hues. With the PAPER/INK/BRIGHT combinations used in the 
following program, there are 16 shades available for each ink color. There are 
eight screen displays in the program, one for each INK. The main INK color is 
noted on the screen, and pressing any key will bring the next screen into view. 


10 FOR n=65368 TO 65375 

15 READ dsPOKE n,d:sNEXT n 

20 DATA 204,51, 204,51, 204,531, 204,51 

25 FOR i#0O TO 7:FOR p=0 TO 7 

30 FOR cai TO 2 

35 PRINT BRIGHT O3PAPER p; INK 
is: "AAAAAAAAAAAAAAAR " 3 

40 PRINT BRIGHT 1;PAPER p; INK 
is "AAAARAARAAAAAAAR " 5 

45 NEXT c 

SO NEXT p 

oo PRINT ** “INK color "yi 

60 IF INKEY$=""THEN GO TO 60 

65 CLS:NEXT i 
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LINE NOTES 


10—20 Defines the checkerboard pattern. 


29 Sets up a nested loop so that each INK color will be shown with every 
PAPER color. 


30-45 Innermost loop. Prints two rows of each of the graphic strings in 
lines 35 and 40. 


99 Identifies the INK color being used. 
60 Keeps the display on the screen until you press a key. 





You can also vary the shade of each hue by using different defined charac- 
ters. Try replacing line 20 with one of the following: 


20 DATA 235 +0 +255 +0 +253 10 +255 +0 

29 DATA 204 +204 +51 +51 +204 +204+51+51 
20 DATA 73:+36 +146 +73 +36+73+146+73+36 
20 DATA 130+72+17+132+38+81+131,+144 


Border Stripes 


This short program will give a flickering border of moving, multicolored stripes: 


10 FOR n=1 TO 100 
19 FUR &=0 TO 7 
20 BORDER b 

29 NEXT bsNEXT n 





Truth and Logic 


USING AND AND OR 


The basic use of the logical operators AND and OR is so straightforward, 
mirroring their use in English, that they have been used all along in the programs 
in this book without explanation. Now let’s look at some more complex ways to 
use these two operators. 

In an IF-THEN statement, the expression following the IF is a condition; 
when that condition is true, the command after THEN is executed. If the 
condition is false, the command, and anything else on that program line, is 
ignored. AND and OR can be used to put more than one condition in an 
IF-THEN statement. When AND is used, both conditions must be true for 
command execution; when OR is used, as long as at least one of the conditions is 
true, the command will be executed. 

First, a short dice game that demonstrates the use of these two logical 
operators. You have a $50 stake, and you are rolling against the computer (the 
odds slightly favor the computer). You may wager up to your total stake on each 
of 25 rolls. If your total beats the computer’s, you win the amount of your bet; if 
one of your dice is higher than the computer’s total, you receive 11⁄2 times your 
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wager; if each die separately can beat the computer’s total, you get double your 
money. Your aim is to increase your stake to $500 by the end of the game. The 
screen will show the values of your two dice and prompt you with a question 
mark for your bet. The computer’s total will then be shown, and the current 
amount of your stake. 


o LET s#50 

10 FOR t=1 TO 25 

15 DEF FN r(L,H) INT (RND& (CH—-L+1) +L) 

29 LET di=sFN (1,6) 8LET d2=FN r(1,6)8:LET c=FN 
r(1,12) 

25 PRINT dig"+"sod23" ?"3 

J0 INPUT b 

35 IF di>c AND d2>c THEN LET s=s+b%2:G0 TO 55 

40 IF d1i>c OR d2>c THEN LET s=8s+bx1.5:G60 TO 55S 

45 IF ditd2>c THEN LET s=s+b 

SO IF di+d2<c THEN LET s=s—-b 

59 PRINT TAB Sici TAB 25; s 

60 IF s<=Ọ THEN STOP 

65 NEXT t 


LINE NOTES 


20 Chooses random numbers for the two dice (d1,d2) and the computer's 
score (c). 


25 The trailing semicolon is important for the screen format. 


35 Compares each die to the computer's number. The AND means both 
conditions must be true for the stake to be increased by double the bet. 


40 Because of the OR, increases the stake by the proper amount if either 
die is higher than the computer's number. 


45—50 Increases or decreases the stake according to how the totals 
compare. 


55 Prints the computer's number and the stake on the screen. 
60 Checks that you still have some money left. 





Compound Logical Operators 


You can use more than one AND or OR in a statement. Suppose, in the above 
game, that you could only double your bet if you were willing to wager over 
$100. Line 35 would then have to be: 


35 IF diese AND d2>c AND b?=100 THEN LET s=s+b#2: GO TO 
43 
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You then have three conditions that all must be true before the entire condition- 
al statement can be considered true. 

You could arrange for the bet to be increased by 1! if either die beats the 
computer’s total, or if your total is the same as the computer’s: 


40 IF dite OR d2ec OR ditd2=c THEN LET s=s+b#¥1.5: GO 
TO 33 


Now the stake is increased by 11⁄2 times the bet if any of the three conditions 
is met. 

You can chain conditions with ANDs and ORs like this as many times as you 
want. But if you want to mix AND and OR in the same conditional statement, 
you have to be careful about the order in which you use them. 


Priorities 


The logical operators have priorities just as mathematical operators do; they are 
performed in a certain order regardless of their position in the statement. 
AND has a higher priority than OR and is always performed first: 


IF a>3 OR beS AND c?5 THEN. é ə 


This statement is interpreted as setting up two conditions: 1) a>5, and 2) b>5 
AND c>5. Since these two conditions are linked by OR, if either one is true the 
command will be executed. 

To circumvent the computer’s automatic ordering of the AND and OR 
operations, you can use parentheses around what you want done first: 


IF {a9 OR b?S) AND c23 THEN. « + 


There are again two conditions here, but this time they are: 1) a>5 OR b>5, and 
2) c>5. Since these two conditions are linked by AND, they both must be true 
for the entire conditional statement to be true. Because of the OR in the first 
condition, there are actually two combinations that will make the entire state- 
ment true: 1) a>5 AND c>5, and 2) b>5 AND c>S. 

How would you alter line 35 of the dice program so that the wager is doubled 
if either die is higher than the computer’s total or if the player’s total is more 
than twice the computer’s? 


LOGICAL EXPRESSIONS 


AND and OR have another usage in Sinclair BASIC, one that allows you to 
combine several IF-THEN statements into one statement that doesn’t even use 
IF-THEN. The series of statements 
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IF a<10 THEN GO TO 125 
IF a=10 THEN GO TO 300 
IF a?10 THEN GO TO 480 
can be rewritten: 
GO TO (125 AND a¢10)+(300 AND a=10)+(480 AND a?190) 


To translate this into English, you can say “‘if’” each time you read “AND.” 
The computer evaluates each one of the parenthetical statements in this 
logical construction and checks the truth of the expression that follows AND. If 
the expression is true, the value of the parenthetical statement is set at whatever 
precedes AND; if the expression is false, the statement is valued at 0. 
So, in the above command, if a is 14, the following evaluation will occur: 


GOTO (125 AND atiio) + (300 AND a=10) + (480 AND a10) 
false false true 
(O) + (O) + (480) 


The computer adds up all the parenthetical values and goes to line 480. 


Mutual Exclusivity 


The parenthetical statements in the previous example are mutually exclusive: if 
one is true, the others have to be false. That is not always the case, and you 
should plan carefully in a situation such as the following: 


IF n#10 THEN GO TO 100 
IF n=10 THEN GO TO 150 
IF n<20 THEN GO TO 200 


Obviously, n can be less than 10 and less than 20 at the same time; and if n is 
equal to 10, it is also less than 20. As long as the IF-THEN statements are in the 
right order in your program (“‘right” depends on the effect you want), there is no 
problem, because the computer will act upon the first true statement it comes to 
and will never see the one(s) following. 

However, if you rewrite these statements using the logical operators, you 
could have a big problem. If, for instance, n is 10, the computer would make the 
following evaluation: 

GOTO (100 AND n10) + (150 AND n=10) + (200 AND n20) 


false true true 
(O) + (150) + (200) 


Adding together the parenthetical values, the computer would GO TO 350! 
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Further definition of one or more of the conditions, until the parenthetical 
statements are mutually exclusive, is necessary. For instance: 

IF osio « 4 

IF m=10 s s a 

IF n20 AND n?10 4 « « 

Written logically: 
GO TO (100 AND n<10)+(150 AND n=10)+ 
(200 AND (n<20 AND n310)) 

In the last parenthetical statement, the first AND operates as “if.” The 
second AND operates in its usual manner, requiring that both conditions be true 
for the total expression to be true. The last statement is evaluated as 200 only if n 
is both over 10 and under 20. The inner parentheses are not really necessary, 


since the first AND will always be used as the “if”; they were included here only 
to make the example a little clearer. 


Other Commands 
Since the entire logical expression boils down to a number, it can be used in 
place of a number with many different commands: 

PRINT AT 10+(4 AND K?2)+(5 AND Ki2) 

PLOT (35 AND x210)+(10 AND x=10) sy 

PAUSE (120 AND t#2)+(180 AND t?2) 


Assigning New Values to Variables 


Logical expressions that change the value of a variable are easy to use, and they 
save a lot of programming space. Here is one example, and the ways the 
expression might be evaluated: 


LET x» = x + (5 AND beta) + (10 AND bèa) 


If btias x = x + (3S) + (0) = “+5 
If bas x =x + (QO) + (10) = “+10 
If bza: x = x + (OQ) + (QO) = “+0 


As you can see, there is no need to write a statement for the b=a possibility if 
you want x to remain the same in that situation. 
If the variable is to be decremented, change the plus sign to a minus sign: 


LET n=n+(5 AND P=0)-(5 AND P30) 
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This will be evaluated in one of two ways: 
If p=0, n=n+(5)—(0) 
If p<>0, n=n+(0)—(5) 


n+5 
n—5 


A Logical Sketcher 


Since these logical expressions are so good at condensing IF-THEN statements, 
and since sketcher programs have so many IF-THEN statements, it makes sense 
to use logical expressions in sketchers. 

The following is a logical rewrite of one of the previous sketcher programs; 
since the original has 12 IF-THEN statements, it could use rewriting! Instead of 
an IF-THEN statement for each of the eight possible key presses and four 
IF-THENSs for fixing the x and y values if they go off the screen, the logical 
operators let us write one statement for each of the two coordinates that might 
change because of a key press, and two more for changing their values if they are 
out of range. That makes 4 logical statements instead of 12 IF-THENs. 


10 LET x#127:LET y=#87 

15 PLOT x,y 

20 IF INKEY$="""THEN GO TO 20 

29 LET m®=INKEYS 

30 LET x=#x+(1 AND m$="h" OR m@="y" OR mg="n")—(1 
AND m#="4" OR m$="r" OR m@x"v") 

35 LET yty+(1 AND m$="r" OR mB=2"y" OR m@e2"t")—(1 
AND m$="b" OR m#="n" OR m@=x#"v") 

40 LET x@x+(236 AND x2-1)-(256 AND x#256) 

45 LET yey+(176 AND y2-1)-(176 AND y=176) 

50 GO TO 15 


LINE NOTES 


30 Assigns anew value to x based on the key press. The first parenthetical 
expression gives three conditions for which x should be increased by 1; 

since the conditions are joined by OR, if any one of them is true, x will be 
incremented. The second parenthetical expression states three conditions 
for which x should be decremented—notice the minus sign before the 


parentheses. 


35 Evaluates the new value of y. If y does not have to change, all the 
parenthetical statements will equal O and y will not change. 

40 Changes x to give the wraparound effect. If x has reached — 1, adding 
2096 to it will bring it to 255. If it has reached 256, subtracting 256 will bring 
it to O. 


45 Changes y for the wraparound. 
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You will notice that this program sketches very slowly, even without any 
built-in PAUSE. That is because every parenthetical statement in a logical 
expression is always evaluated. So, although the value of x or y may not have to 
change, the computer is evaluating all the expressions and adding and subtract- 
ing 0’s from the coordinates; the time it takes for all these calculations slows 
down the program. 

You can tell the computer to skip lines 40 and 45 if x and y are both in a 
safe range: 


37 IF xż-1 AND x¢256 AND y+1 AND y<4176 THEN GO TO 15 


The program will run noticeably faster with this addition, because the 
unnecessary calculations in lines 40 and 45 are avoided. It still won’t run as fast 
as the original version; while all those IF-THEN statements are tedious to type 
in, the computer runs through them faster because it can ignore the ones with 
false conditions. 

How would you rewrite the four IF-THENs in lines 35-50 of the dice game 
into one logical statement that sets a new value for the variable s? 


Logical String Expressions 


Strings can be used with logical expressions, too. If the conditional expression is 
true, the parenthetical statement will be “equal to” the string before AND; if 
false, the statement will be considered an empty string. Try 


10 LET i=INT(RND#4) 
15 PRINT INK is( "Black" AND i1=0)+("blue" AND 
1=1)+("red" AND 1=2)+("magenta" AND 1=4) 


The next program is an abbreviated number-guessing game that makes use 
of logical string expressions: 


10 LET n=INT (RNDX&100) 

15 INPUT g 

20 IF g=n THEN PRINT “Right":STOP 

25 PRINT ("too high" AND g>n)+("too low" AND g<n) 
30 GO TO 15 


At line 25, the computer will guide your guessing by letting you know where 
your guess was in relation to the answer. 

When logical expressions are used with strings, you cannot put a minus sign 
between statements; the plus sign is for concatenation, not addition. And since 
the sign is for concatenation, if the expressions in both statements are not 
mutually exclusive, and they are both true, then both strings will be printed. 
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A logical expression for numbers or strings does not always have to consist 
of alternative choices; a parenthetical logical expression can be inserted into an 
otherwise straightforward command. 

This program, for instance, waits for you to input the answer to a multiplica- 
tion problem; it will print your answer but will mark it with an asterisk if the 
answer is incorrect. 


10 LET a@INT(RND&12+2) sLET b@INT(RNDS12+2) 
15 PRINT ag"%"sb3 

20 INPUT c 

25 PRINT TAB Bc; ("x" AND c<>axb) 

30 GO TO 10 


Because AND is being used as a logical evaluator in line 25, the asterisk is 
printed only if c does not equal a times b. When that expression is false, it means 
you had the right answer; if it is false, an empty string—nothing—is printed 
after your answer. 


OR as “Unless” 


While AND can be used with strings and for number operations involving 
addition and subtraction, OR is practical only for setting new values for vari- 
ables using multiplication or division. This is because of a very fundamental 
difference in how parenthetical logical statements are interpreted when OR is 
being used. 

When AND is used, the statement is evaluated as the number before AND 
when the conditional expression is true. When OR is used, the statement is 
evaluated as the number before OR when the conditional expression is false. 
And, while a false condition results in an evaluation of 0 for the statement when 
you are using AND, with OR, a true condition results in a statement evaluation 
of 1. These confusing differences can be summed up as shown in Table 8-1. 


TABLE 8.1 EFFECTS OF LOGICAL OPERATORS 


Operator Conditional Conditional Result 
choice expression 
AND n true n 
AND n false D 
OR n true 1 
OR n false n 


TRUTHANDLOGIC 129 


In a statement such as 
LET n=n¥(10 OR atb) 


you can read the OR as “‘unless.”’ If a is less than b, the condition is true and the 
statement is evaluated as 1. Since n*1=n, the value of the variable does not 
change. If a is not less than b, the expression is false, and the statement is 
evaluated at the 10 that preceeds the OR; n will equal n*10. So, you can read the 
entire statement as ‘“‘let n=n*10 unless a is less than b.” 


Nonexclusive Statements 


You may not always want parenthetical expressions to be mutually exclusive. 
Consider the following upgraded version of the last number-guessing game. The 
program includes a scoring routine now, with the score based on how many turns 
it takes you to guess the number. Since the object is to achieve the lowest 
possible score, one point is added for each guess; if you guess the number in 
fewer than eight tries, 10 points are subtracted from your score; if you guess in 
fewer than five tries, 25 points are subtracted. 


5 LET t=0 
10 LET n=INT(RND*100) 

15 LET t=t+ir INPUT g 

20 IF g=n THEN PRINT "Right!": GO TO 35 

25 PRINT ("too high" AND g>n)+("too low" AND g<n) 
30 GO TO 15 

35 LET s=t-(10 AND t<8)-(15 AND t<5) 

40 PRINT s 


LINE NOTES 


5 Initializes a variable to count the number of tries. 
35 Calculates the score by starting with the number of tries. Then, if there 


were fewer than eight tries, 10 points are subtracted, according to the first 
parenthetical statement. If you guess the number in fewer than five tries, 
the first parenthetical expression is still true, and 10 points are deducted; 
however, the second parenthetical statement is also true, so 15 more 
points are deducted, for a total of — 25 when t is under 5. 





TRUTH TESTING 


To your computer, truth is a matter of binary digits: 1 represents true and 0 
represents false. 

The execution of a command in an IF-THEN statement depends upon the 
conditional expression: 
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IF atb=c THEN ; « 4 


If the sum of a and b is indeed c, the conditional statement is true and the 
command is executed. 

However, the computer doesn’t need an equation in a conditional state- 
ment. It will recognize any expression whose result is 0 as false, while any 
nonzero expression (including negative numbers) will be considered true. So, 

IF E THEN $ + t 

IF 17% THEN «© a i 

IF x-y THEN « «+ ¢ 
are all perfectly valid programming statements, as incomplete as they might 
look. They are actually a shorter way of saying 

IF X20 THEN s « à 

IF 17#pn420 THEN « + 4 

IF x-yi30 THEN « sə 

You can try this as a direct command: IF 1 THEN PRINT “one”, then 
try this: 

IF 0 THEN PRINT “‘zero’’. In the first case, the computer printed one, 
because the conditional statement was true; in the second case, it did not print 
zero because the conditional statement was false. 

A formula for even/odd testing was given in Chapter 6; while it certainly 
works, a shorter one can be developed from it, using truth-testing techniques. 

When n is even, n/2—INT(n/2)= 0 because there is no difference between 
n/2 and INT(n/2). When n is odd, n/2—INT(n/2)<>0. 

According to the computer’s truth evaluation (0 is false, nonzero is true): 

When n is even, n/2-INT(n/2) is false. 


When n is odd, n/2Z2-INT(n/2) is true. 
So, if you want a command executed only if n is an odd number, you can use 


IF nZZ-INTCRSZ) THEN v s a 


One/Zero Assignment 


In addition to recognizing 0/nonzero values, the computer actually assigns a 0 or 
a 1 to an expression, based on its “‘truthfulness.”’ For example, 5<10 is true, and 
would be assigned a 1, so 


LET b=5<10 
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assigns the value of 1 to the variable b. That may seem like a roundabout way of 
saying ““LET b=1,” but in actual practice, the expression will involve variable 
values that are not known ahead of time. 

Consider x = y>z. If y is greater than z, the expression is true; it is assigned a 
1, and x is equal to 1. Knowing that a conditional statement is checked for a 0 or 
nonzero value, you can use 


IF x THEN +, + + 


and command execution will depend on the relationship between y and z. 
You can take the “odd test” and assign it to a variable: 


LET odd=n/2-INT(n/2) 
and then use 
IF odd THEN + t + 


Using this next routine, the computer can identify which of its randomly 
produced numbers are odd: 


10 LET n=INT (RND&20+1) 
15 LET odd=n/2-INT (n/2) 


20 PRINT n, 
25 IF odd THEN PRINT "odd"; 
3O PRINT 


35 GO TO 10 


LINE NOTES 


15 Assigns the “odd test” formula to an appropriate variable. The variable 
will equal O, and therefore be false, when n is even. When n is an odd number, 


the variable will not be O, and therefore will be true. 


25 Executes the PRINT command, if appropriate. The conditional 
statement consists only of the variable “odd.” If it is nonzero (true), the 
PRINT command is executed. When n is even, the condition is false, and the 
print command will not be executed. 





Logical NOT 


The logical operator NOT reverses the true/false standing of an expression. 


IF nis true, NOT nis false. 
IF n is false, NOT n is true. 
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So if you want a command executed only when n is even, change the last 
program to 


10 LET n#INT (RND&20+1) 

15 LET odd=#n/2-INT (n/2) 

20 PRINT n, 

295 IF NOT odd THEN PRINT "even"; 
30 PRINT 

35 GO TO 10 


The condition “NOT odd” will be true whenever n is an even number, just the 
reverse of the situation before using NOT. 

NOT can apply to an entire expression instead of a single variable, but the 
computer’s priority ordering must be taken into account. For example, NOT 
a<b is taken to mean (NOT a)<b because, unlike the other logical operators, 
NOT applies only to the expression immediately to its right, not to an entire 
operation. To circumvent the usual ordering, use NOT(a<b). 

Using NOT, you can set up IF-THEN statements so that commands are 
executed only on alternate loops. Using a variable as a condition: 


IF & THEN « «& 4 
and later in the loop, using 
LET x=NOT x 


will change the value of x from 0 to nonzero and back again as the computer goes 
through the loop. The following program demonstrates this technique. 


S LET x=0 
10 FOR a=1 TO 20 
15 IF x THEN PRINT "loop "3a 
20 LET x= NOT x 
293 NEXT a 
At line 15, the print command is executed only if x is true (nonzero). The 
PRINT command will identify on which loops x has a true value. 


Another Sketcher 


As a further refinement of the sketcher program, you can incorporate the 
truth-testing and 0/1 assignment capability of the T/S. 
One version of the sketcher began with 


IF m#="h" THEN LET x=x+1 
IF m$="f" THEN LET x=x-1 
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Using logical expressions, they were rewritten as: 
LET x=x+(1 AND m$="h")-(C1 and m$="f") 


Because both the increment and decrement are 1, we can apply the true/ 
false test: 


LET x=x+(m$="h")-(Cm$="f") 


Here are the possible evaluations: 


IF ms is Va PA = A oe (m$="h")—(m$=" f") 
(true) (false) 
x + (1) -= 0) = +1 
IF mS is “f"s x = x + (m$="h")—(m$="f") 
(false) (true) 
ii (O) -ï (1) = x-1 


In each case, if the parenthetical expression is true, it is evaluated as 1; if it is 
false, it is 0. If neither h nor f has been pressed, both expressions are equal to 0 
and x will not change at all. 

Here is the basic truth-test sketcher: 


10 LET x#127:LET y=87 

15 PLOT x,y 

20 IF INKEY$="" THEN GO TO 20 

25 LET m#=INKEYS 

SO LET x=x+(mte"y" OR m$="h" OR m$2"n")—(me=2"r" 
OR mB="F" OR me="v") 

35 LET ymy+(m$="y" OR m@="r" OR me="t") —(ms="b" 
OR m$="n" OR ms="v") 

40 GO TO 15 


LINE NOTES 


30 There are three key presses that should increment x. If any one of them 
is the INKEY$§, the first parenthetical statement will be true because of the 


ORs, and it will be evaluated as 1. If the INKEYS is any of the strings in the 
second parenthetical statement, /t will be evaluated as 1, and x will be 
decremented because of the minus sign in front of the parentheses. 





35 Changes the y value or not, depending on the INKEYS. 


You should notice that, for any diagonal line, both x and y are changed in 
the loop. 

How would you write two truth-testing program lines that give this sketcher 
the “wall” variation? 





Sound 


BEEP 


The BEEP command is simple to use, but you can do some pretty fancy things 
with it. The basic command has two arguments: the first indicates, in seconds, 
how long the note should be, and the second controls the pitch of the note. 

A beep can last for up to ten seconds; the shortest beep you can hear in the 
medium tone range is .005 (5 thousandths) of a second. The beep will actually 
sound more like a click when you make it that short. 

The numbers for the pitch of the beep tone can range from —60 to 
69; decimal values are allowed. As the numbers get lower, so do the tones. 
The lowest notes are difficult to hear as tones; they come out as a series of low 
clicks. Try 


BEEP 3+-60 


Recognizable tones start at about — 40, so try this program to hear the range of 
the beep tones: 

10 FOR p=-40 TO 69 

15 BEEP .25 +P 

20 NEXT P 


134 


SOUND 135 


Keeping the BEEP very short will, as mentioned before, give you clicks 
instead of tones, but you can get different-sounding clicks by changing the pitch: 


10 FOR p=0 TO GO STEP 10 
15 FOR n=1 TO 20 

20 BEEP .O00S5 +P 

29 NEXT nziNEXT P 


You can get an interesting sound effect when you keep the beep very short but 
constantly vary the pitch: 


10 FOR i=1i TO 3 
15 FOR P=0 TO 30 
20 BEEP .O0OS3 oP 
29 NEXT PsNEXT i 


With the higher-pitched notes, you can use even shorter (as short as .0005 
second) beeps and still hear the clicks. For another unusual sound effect, try 


10 FOR p=25 TO GO 
15 FOR n=1 TO 10 
20 BEEP 0005+pP 
2> NEXT n:NEXT P 


Sound-Motion Coordination 


The simplest type of coordination of sound and graphics is a beep that occurs 
every time something is printed on the screen: 


10 FUR n=1 TO 22 
15 PRINT n 

20 BEEP 5/0 

29 NEXT n 


It is important to place the beep command in the correct spot. If lines 15 and 20 


were reversed: 


15 BEEP 9+0 
20 PRINT n 


the first tone would sound, and end, before the first item was printed on the 
screen. You can control how quickly something is printed on the screen by 
changing the length of the beep: 


20 BEEP 240 
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The coordination of sound and graphics can be enhanced by changing the 
pitch of the beep on each loop: 


20 BEEP .Sen 


Of course, it is not necessary to beep for every movement. This is the 
bouncing ball program, with a single, but effective, sound effect: 


10 FOR r=0 TO 21:PRINT AT r,r3"0" 

15 PAUSE S:PRINT AT ryr3" "NEXT r 

20 BEEP .05,10 

25 FOR r=21 TO O STEP -1i:PRINT AT r,213"0" 
30 PAUSE S:PRINT AT r,21;" "sNEXT r 


INKEY$ Acknowledgment 


A BEEP can acknowledge a key press when it is placed right after the INKEY$ 
statement: 


10 IF INKEY$="" THEN GO TO 10 
15 BEEP 4570 


You can use this method to warn the user that the wrong key has been 
pressed: 


10 PRINT "Fress any number" 

15 IF INKEY$="" THEN GO TO 15 

20 IF CODE INKEY$<48 OR CODE INKEY$>57 THEN BEEP 
„5,5: GO TO 15 

295 PRINT INKEYS 


Since the CODEs are for 0-9, if a letter is pressed instead of a number, the 
computer will beep. You can use the same technique for INPUT: 


10 INPUT"Enter a number from 10 to 20 "5a 
15 IF a<10 OR a?20 THEN BEEP .5+-5:G0 TO 10 
20 PRINT a 


Of course, to be fair, you can reward someone for pressing the right key by 
using a beep of a different pitch. 


Adding Sound 


You can easily enhance many simple programs with the BEEP command. This is 
the multiplication program from the last chapter; now it will buzz for a wrong 
answer and beep for a correct one: 
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10 LET a@INT(RND*12+2) sLET b=INT(RND*12+2) 
15 PRINT ag"X"gbz 

20 INPUT c 

25 PRINT TAB @3c3 ("X" AND c<>akb) 

30 IF c=ak%b THEN BEEP .1,20 

35 IF c<>akb THEN BEEP .5,-20 

40 GO TO 10 


The BEEP command can be added to any sketcher program. This next 
program is very basic; it uses the cursor keys for direction control. It doesn’t 
have the wraparound or wall feature, and it doesn’t sketch diagonally, but it does 
have sound! You can add similar sound to any of the other sketcher programs. 


10 LET r=11:LET c=16 

15 BEEP .05,10:PRINT AT rc; "p" 
20 IF INKEY@=""THEN GO TO 20 
29 LET m#=INKEYS 

JO IF m$="5" THEN LET c=c-1 

35 IF m$="6" THEN LET r=r+1 

40 IF m$="7" THEN LET r=r-1 

45 IF m$="8" THEN LET c=c+l 

50 GO TO 15 


Try different values in the BEEP command. You can slow down or speed up 
the program by changing the beep’s duration. Try tying the pitch to the row and 
column placement by using r+c for the pitch value. 


Music with Beep 


The beep command is perfect for playing simple tunes; of course, you do have to 
know a little about music to make the most of it. 

In our western culture, the smallest distance between musical notes is a half 
tone, or semitone. Notes are named by letters of the alphabet, A through G, 
with sometimes a sharp (#) or a flat (+) added. 

When the frequency of a note is doubled or halved, the note changes by an 
octave—it has the same name, but sounds higher or lower. There are 12 
semitones available from a note to its octave, and since the numbers in the BEEP 
command represent half tones, we can easily match up note names and BEEP 
values (see Table 9-1). The BEEP value 0 is what is called middle C; it is the 
middle note on the piano keyboard. 
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TABLE 9.1 SEMITONES AND THEIR BEEP VALUES 


Note Beep value 
C 12 
B 11 
At /Bb 10 
A g 
G#/Ab 8 
G 7 
F#/G> 6 
F 5 
E 4 
D#/E> 3 
D 2 
C#/ D} 1 
C 0 


Now, to pull all this together, you need to know one more thing. A specific 
pattern of tones is needed to achieve a major scale—the familiar do-re-mi-fa-sol- 
la-ti-do. The pattern is, counting up from the first note: whole tone (two 
semitones), whole tone, half tone, whole tone, whole tone, whole tone, half 
tone. That is, two whole tone intervals followed by a half-tone skip, then three 
whole tones followed by another half tone. 

If you try this pattern starting on the middle C in Table 9-1, you will find that 
you land on every natural note—the ones without sharps or flats: C,D,E,F, 
G,A,B,C. The word octave derives from the fact that there are eight notes in the 
scale. 

Now, to play some music. This program will beep out a scale for you. The 
values in the DATA statement were found by checking the beep values for the 
natural notes in a scale. 


10 FOR p=1 T0 8 
15 READ t:BEEP .«Se»tsNEAT P 
20 DATA O92+495%+7s9%11 912 


Just to see how culturally attuned you have become to this scale, change the 
next to last DATA item from 11 to 10 and run the program again; it will sound 
very odd. 

Although the beep command is set up for half tones, you can use decimal 
values to get quarter tones or other fractions. While they are fine for sound 
effects, anything but half-tone intervals sound very strange in music. Try chang- 
ing that DATA item to 11.5, and run the program again. 
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Music Theory: The Staff 


It is likely you will want to try to program some music directly from a sheet of 
printed music, in which case you will have to be familiar with the following terms 
and definitions: 


MEASURES 





STAFF 


The staff is composed of five lines and four spaces, each with a letter name 
from the musical alphabet. (Does the phrase “‘Every Good Boy Deserves Fun” 
ring a bell?) 

The staff is divided into measures, and the top number in the time signature 
tells how many beats are in each measure. 

Reading the staff from bottom to top—line,space,line, and so on—reveals 
the alphabetical structure: E,F,G,A,B,C,D,E,F. This is important to know 
because sometimes notes are placed above or below the staff, and the alphabet 
extends in both directions: 


The “C” on the first ledger line below the staff is middle C, BEEP 0. Notes 
below middle C have BEEP values in the negative range. 

Sharp and flat notes are obtained by placing the appropriate symbol at the 
beginning of the piece of music or directly in front of the note: 
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In each case, the symbol applies to that specific note and its octaves, so both F’s 
in this measure are sharp: 


When a sharp or flat is placed at the beginning of a piece of music, it applies to 
all the notes in the whole piece; when it is next to a specific note, it applies to 
notes in that measure only. 


Duration 


The first number in a BEEP command tells the computer how long the note 
should last. In written music, the duration of notes is relative: a note doesn’t last 
for a defined length of time, but twice as long, or half as long, as another note. 

Usually, a whole note is given four beats, or counts, in music. The most 
common notes, and their durations (in beats) are: 


© whale 4 beats 
a half 2 beats 
m quarter 1 beat 


a eighth Yo beat 
ail sixteenth V4 beat 


So, if you make a whole note last for one second, then a quarter note lasts for 1⁄4 
second. If the whole note lasts for 2 seconds, the quarter note lasts for 1⁄2 second, 
and so on. 
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Variable Values 


If you programmed a melody with BEEP and then decided it sounded 
too slow, you would have to go back and change every BEEP time value to 
speed it up. 

Instead of programming with BEEP, try using the following system: 


10 LET w=4 
15 LET h=w/2:LET g=w/4 


By assigning a value to w (for whole note) and defining the rest of the notes 
(h = half, q = quarter) in terms of w, you can change the speed of a piece of music 
just by changing one line—the assignment statement for w. 

Here is how it can work. The following program reads the time and pitch 
values from the DATA statements: 


10 LET w=2 

15 LET hew/2:LET gq=w/4 

20 READ t,p:BEEP t,p:G0O TO 20 
25 DATA q;5,q:;5,h;,5,4;5,0;5,ħn,5 
JO DATA q,5,9,8,h,1,9,3,;W,09 


With w at 2, the tune is a little slow. Change line 10: 
10 LET w=1 

and try again. If that’s a little too fast, try 

10 LET w=1,.5 


You can see how easy it is to work with variables instead of specific time 
values; in addition to enjoying the convenience of changing everything by 
altering only one statement, you are spared the task of figuring out that if a 
whole note is 1.5 seconds, then a quarter note is .375, and so on. 

It’s easy to translate this bit of music into a program: 
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Just identify one note—duration and pitch—at a time, and translate that into 
duration and pitch values for BEEP. 
quarter note, C= q,0 
quarter note, C= q,0 
quarter note, D= q,2 
quarter note, E= q,4 
quarter note, C= q,0 
quarter note, E= q,4 
half note, D = h,2 
quarter note, C= q,0 
quarter note, C= q,0 
quarter note, D= q,2 
quarter note, E= q,4 
half note, C= h,0 
half note, B= h,—1 
Use the BEEP values in DATA statements like these: 
10 LET w=1 
15 LET h=w/2:LET a=w/d4 
20 READ t»p:BEEP t+spP:GO TO 25 


30 DATA 9 +0 99290999299 9499 2099 pOohoe 
35 DATA 9420199099299 Ooh seOe9 4-1 


If you are programming simple melodies that use a limited number of 
different notes, it is easier to assign variable values than to have to look them up. 
Use variable names that match the note names: 


c=0 {=5 b=11 
d=2 g=7 c=12 
e=4 a=9 


This piece of music 
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is BEEPed in the following program. Using capital letters for the note durations 
makes it easier to check the accuracy of the DATA statements—it is especially 


66.99 66.99 


difficult to read the notes when “q” and “g” are both being used. 


10 LET wei:LET hew/2:LET g=w/4 

15 LET c=#O3sLET d=2:LET e=4:LET g=7 
20 READ t,p:BEEP t,p:G0 TO 20 

25 DATA Q,e,0,¢0d,0,c,0,d,0,e,0,e,H,e 
30 DATA Q,d,Q0,0d,H,d,G,e,0,9g,H;g 


How would you program these pieces of music? 





SOUND 


The T/S has 14 registers that take care of its three channels of sound. Since it 
takes two registers to control the tuning of each channel, and one register for 
each channel’s volume, 14 is not such an overwhelming number of registers as it 
seems at first. (Appendix C contains a summary of the SOUND registers and 
what they do. Don’t let the use of the word register confuse you. It’s just a word 
that refers to a storage location, similar to an address.) 

To make the T/S play a simple note, you must do four things: 


Enable a channel for tone. 
Set the pitch of the note. 
Set the volume of the note. 


ee} 


Set the duration of the note. 
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Enable 


The most important register is register 7. It is the enable register, and its contents 
tell the computer whether to play a tone or noise (or both) on any or all of its 
channels. 

Register 7 is a little odd in that, while all the other registers start out at 0, it 
begins with a value of 63. To further complicate matters, when register 7 has a 63 
in it, the computer can’t play anything—all the channels are disabled. To turn on 
a channel—to enable it for tone or noise—you must change the contents of 
register 7 to something lower than 63. 

Each channel (referred to as A, B, or C) has a value which, when subtracted 
from register 7, enables the computer to play a note on that channel: 


Channel A = 1 

Channel B = 2 

Channel C = 4 

If you want a tone on channel A, you must subtract 1 from register 7’s usual 
63, loading it with 62. If you want a tone on channel B, 7 must be loaded with 
63 —2, or 61. Enabling channel C for tones means loading register 7 with 59. 

You can enable more than one channel at a time for tones. For example, 

Enable A and B = 63—1-—2 = 60 

Enable A and B and C = 63—-1-—-2-—4 = 56 


Pitch 


Each channel has two tuning registers; together they determine what note will be 
played. The tuning registers are: 


Channel A: registers 0 and 1 
Channel B: registers 2 and 3 
Channel C: registers 4 and 5 


The lower-numbered register in each pair is for what is called fine tuning, 
while the higher-numbered register of the pair is for coarse tuning. Those ap- 
pellations may be a little misleading; actually, it is the total of the values stored 
in the two registers together that determines the pitch of the note. Since a 
register (like a byte) cannot hold a value over 255, any overflow has to be stored 
somewhere else. This is more thoroughly explained in the next chapter, but you 
will notice that when the fine-tune register reaches 255, the value in the coarse- 
tune register must be changed. 
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These are the possible values for each of the tuning registers: 
Fine tune (registers 0,2,4): 0-255 
Coarse tune (registers 1,3,5): 0-15 


As the values in the tuning registers get higher, the pitch of the note gets lower. 

The evenly spaced increments of the BEEP command do not apply here. 
The tuning registers hold numbers related to the frequency of a note; since the 
size of the change in frequency between tones, or semitones, varies with the 
pitch of the tone, there is no easy way to chart out note values. 

With coarse tuning set at 0, a partial list of fine-tune values are given in 
Table 9-2 for the notes indicated. See Appendix C for a more complete list. 

There is a structured mathematical relationship between the frequencies of 
notes, but it is hard to translate into register values. If the frequency of a note is 
doubled, the note moves up an octave; if it is halved, it moves down an octave. 
The twelve semitones in any octave are spaced by one-twelfth of the total range 
of the octave. Because the frequency value of a note is split between the two 
registers, however, it is difficult to apply this knowledge to SOUND program- 
ming; it is much easier to look up the values in the table. 


TABLE 3.2 TUNING VALUES FOR THE NOTES FROM 
MIDDLE C TO HIGH C 


Note Tuning value 
C 209 
C#/D> 197 
D 186 
D# /E> 175 
E 165 
F 156 
F/G} 147 
G 139 
Gi / Ab 131 
A 124 
At / Bb tie 
B 110 


C 104 
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Volume 


There is one volume register for each channel: 


Channel A: register 8 
Channel B: register 9 
Channel C: register 10 


The possible volume levels for a simple tone are values from 1 to 15; a O ina 
volume register will turn the sound all the way down. (And a 16 does something 
else entirely, but we’ll get to that later.) 


The SOUND Command 


The SOUND command is used with pairs of numbers; the first number is the 
register, the second is what you want to put into it. (It’s very much like a POKE 
command.) To play a note on channel A, run this program: 


10 SOUND 07100 
15 SOUND 8915 
20 SOUND 7+62 


This program puts a value of 100 in the fine-tuning register, sets channel A at 
maximum value, and enables the tone. 

The little blip you heard was the note you programmed. When a program 
ends, the computer automatically shuts off the sound. Add 25 PAUSE 30 and 
run the program again. PAUSE is used to set the duration of a note. In this 
instance, the PAUSE is the last program statement, and the tone ends when the 
PAUSE is over because that is also the end of the program. Within a program, 
however, you will have to use something like SOUND 7,63 to shut off the sound 
yourself. Putting 63 into register 7 disables all the channels, so that statement 
will shut off all sound. You could also use SOUND 8,0 to turn channel A’s 
volume off; then other channels can keep playing. 

It is not necessary to use separate lines for sound commands—the pairs of 
numbers can be separated by semicolons, so you can rewrite the last program 
like this: 


10 SOUND 0°10058:+1057 +62 
20 PAUSE 30 


Now, for a little experimentation with this short program. First, try different 
volumes. (You may not be able to hear the softest levels. ) 
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S FOR. vel TO 15 

10 SOUND 0310058557 +62 
15 PAUSE 30 

20 NEXT v 


Now try this interesting sounding demonstration of the fine-tuning channel. 
This program will load register 7 (channel A fine-tune) with random values in 
the allowable range of 0-255. For the best effect, change the PAUSE value 
as well. 


3 LET f=INT(RND#256) 
10 SOUND 0+f58+15:57+62 
15 PAUSE 10 
20 GO TO 5 


With the fine-tune register again set at 100, try this variation, which 
will show the effect of using the coarse-tune register. (Up until now, it has been 
set to 0.) 


> FOR c=0 TŪ 15 

10 SOUND 0+1005;8+1535537+62 
15 SOUND isc 

20 PAUSE 30 

25 NEXT c 


Special Effects 


The last, and most interesting, thing you can do with this brief sound program is 
to change the fine-tune value from 0 through 255 with no PAUSE between 
changes. This smooth frequency change will result in a sound like that made by a 
slide whistle. First, change the coarse-tune register back to 0 by direct command: 


SOUND 1+0 
Then try this program: 


10 FOR f=0 TO 255 
15 SOUND 0O;+f58:1557s62 
20 NEXT f 


Since the numbers go from low to high, the pitch goes from high to low. You 
can have the whistle start high, go down, and go back up again in a single loop: 


10 FOR f=-255 TO 255 
15 SOUND O;ABS £:8+1557,62 
20 NEAT f 
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By using the absolute value of the control variable (ABS f) in the tuning 
register, you load the register with ever decreasing values while the loop is going 
through the negative numbers and increasing values when the loop is using 
positive numbers. 


Multichannel Sound 


Channels B and C are programmed in the same way as A, except, of course, that 
the register numbers differ and register 7 has to be loaded with a different 
number in order to enable the correct channel. 

To play a chord, which is three simultaneously sounding notes, you can load 
register 7 with 56 to enable all three channels for tone, and also load the tuning 
and volume registers for all three channels. Of course, for a chord to sound 
good, there are a few musical rules you have to follow. 


Music Theory: Chords 


The two most common kinds of chords in music are major and minor chords. 
They are easily defined by their intervals, or the number of tones between the 
notes that make up the chord. 

A major chord has an interval of 2 steps (whole tones) from the bottom to 
the middle note, and an interval of 142 steps from the middle to the top note. 
The chord takes its name from the bottom note. The following half-tone clock 
will help you find the notes you need for a major chord. 


C 


B c#/p b 
A* /B b n 
A D* Eb 
Gab ‘ 
G F 
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To make a C major chord, start at C, and count two steps. Since a step is a 
whole tone, you must count four half-tones on the clock, and you wind up on E. 
The next note in the chord must be 1% steps (3 half tones) away from E, and you 
wind up with a G. 

So, a C major chord (abbreviated as CM) is composed of the notes C, E, 


and G. 
B Q) c*/p b 
Ateb j 
A D* Eb 
G*/Aab a 
Cs) F 


Fe /G b 


The intervals of a minor chord are just the opposite: 1/2 steps from bottom 
to middle, and 2 steps from middle to top. Using the chord clock to find a C 
minor (Cm) chord, start on C, count 1% steps to the next note, and, from there, 
2 more steps to the last note. Remember, each notch on the clock is a half step. 
The notes for Cm are C, Eb, and G. 


Co) 


B C#*/p b 


! 


E 
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Major and minor chords are certainly not the only kinds of chords there are, 
but you can do a lot with them. Now, to program these chords, you need the 
following tuning values: 


C = 209 
E= 175 
E = 165 
G = 139 


These are the fine-tune values; the coarse tuning can be left at 0. 


10 SOUND 7:56 

15 FOR r=8 TO 10:SOUND re+1SsNEXT f 
20 SOUND 0+20952+16554:+139 

29 PAUSE 120 


LINE NOTES 


10 Enables sound for all three channels. 


15 Uses FOR-NEXT loop to load maximum volume of 15 into three volume 
registers. 


20 Loads note values for C major chord. 





The important thing to remember about the sound registers is that, once you 
load them, they retain those values until you change them or until you turn the 
computer off. Since the only difference between the C major chord and the C 
minor chord is one note, we can change the channel that is playing the E to an E> 
and leave the other channels where they are. Just add 


30 SOUND 2;:174:PAUSE 120 


and run the program again. 

Although the music ended when the program did, all the registers are still 
loaded. Try running the program again, and listen very carefully to the beginning 
of the first chord. For a fraction of a second, an Eb will be playing instead of an 
E, because that is the note in channel B until you reload that channel at line 20. 

To solve this kind of problem, which can be much more noticeable in other 
circumstances, always disable all the channels at the end of a piece of music. 
Since this won’t change the values in the tuning register, you have to make sure 
you don’t enable the channel again until after you load the appropriate values 
into the tuning and volume registers, as shown in the following program: 
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15 FOR r=8 TO 10:SOUND r,15:NEXT r 
20 SOUND 0, 20932, 16534, 139 

23 SOUND 7,56 

25 PAUSE 120 

30 SOUND 2,174:PAUSE 120 

35 SOUND 7,63 


All the channels are disabled at line 35; deleting line 10 from the last 
program and replacing it with line 23 in this program places the enabling 
command at the correct spot—after the new values have been loaded into the 
tuning registers. 

The best routine to place at the end of aSOUND program is one that sets all 
the registers back to their original values: 


FOR r=0 TO 13:SOUND rsO:NEXT r: SOUND +63 


To program a combination of single notes and chords takes quite a bit of 
planning. This, for instance, is the opening to “‘Also Sprach Zarathustra,” better 
known as the theme from 2001: A Space Odyssey: 





It begins with three single notes, C, E, and C, followed by C major and C minor 
chords. 

One way to program this piece is to play the three single notes on any one 
channel, then play the two chords, using the last program. However, if you 
compare the single notes and the chord notes that you need, you will see that, in 
every instance, you need a C anda G. So you can program this piece of music by 
loading the values for C and G into two of the channels, turning them on and off 
as you need them, and using the third channel to hold, in turn, the octave C, the 
E, and the E, like this: 


Single 
Note CM Cm 
Channel A c C c 
Channel B G G G 


Channel € Cc E E? 
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10 FOR r=8 TO 10:SOUND r,15:NEXT r 
15 SOUND 0, 209; 2,13934,104 

20 SOUND 7,62:PAUSE 40 

25 SOUND 7,461:FPAUSE 60 

30 SOUND 7,59:PAUSE 60 

35 SOUND 4,165 

40 SOUND 7, 56:PAUSE 20 

45 SOUND 4,175:PAUSE 90 


LINE NOTES 


10 Turns the three volume registers to maximum volume. 
15 Loads values for the single notes into the three fine-tuning registers. 
20 Enables only channel A, and the note C is played. 


25 Enables only channel B, so the first note is switched off and the 
G is played. 

30 Enables only channel C, so the previous note ends and C is heard. 
35 Loads the value for note E into channel C. 

40 Enables all three channels, and the C major chord is played. 

45 Changes channel C from E to E+, and the C minor chord is played. 





If you would like to program the second phrase of this piece of music, just 
repeat the routine but use C minor first and C major last. 


More SOUND Techniques 


With the BEEP command, a note plays as long as you indicate; with the 
SOUND command, although the duration can be controlled by a PAUSE 
command, the note actually plays until you turn it off or until the program ends. 
The difference between the BEEP and SOUND methods is evident when you 
try to play two notes of the same pitch one after the other: 


10 BEEP 1+O0:BEEP 1+0 


10 SOUND 0+20958+1557»62:PAUSE 60 
20 SOUND 0+209:PAUSE 60 


The BEEP program will give you two 1-second middle C tones; the SOUND 
program will give you one 2-second middle C tone. In fact, you may have 
noticed the redundant SOUND command in line 20: the tuning register is 
already loaded with 209. The point is, to hear two separate notes, you have to 
turn the first off before turning the next on. Momentarily disabling the channel is 
the best way: 
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10 SOUND 0+20958;+1557,»G62:PAUSE GO 
13 SOUND 7:63 
20 SOUND 7+62:PAUSE 60 


Using Variables 


You can use variables for the pitch and duration of SOUND tones, just as you 
did with the BEEP command. 

This program, which plays “Twinkle, Twinkle, Little Star,” also makes good 
use of the RESTORE command for the phrases of music that are repeated: 


10 LET c@®209:LET d@186:LET e=16S5:LET £2#156:LET 
g@is9:LET a=124 a 

15 LET Q=30:LET H=2xQ 

20 SOUND 8,15 

29 FOR n=1 TO 21:60 SUB S0O:NEXT n 

30 RESTORE 102:FOR n#=1 TO 7:60 SUB SO:NEXT n 

35 RESTORE 100:FOR n=1 TO 14:G0 SUB S0O:NEXT n 

40 STOP 

50 READ p,tsSOUND 0,p37,62:PAUSE t: SOUND 
7,63: RETURN 

100 DATA c,Q,c,0,9,0,9,0,a,0,a,0,9,H 

101 DATA £,Q0,#,0,2e,0,e,0,0d,0,0d,Q,c,H 

102 DATA g,G,9,9,f,0,4,0,e,0,e,0,d0d,H 


LINE NOTES 


10 Assigns variable names to note values. 

15 Assigns variable values for the PAUSE command so that Q can stand 
for the quarter note. 

20 Sets channel A volume. 


25 Executes the note-playing subroutine as many times as there are notes 
in all the data lines. The data is arranged in pairs, so that one item is the note 


and the next is the duration for the PAUSE command. 


~30 RESTORESs to the beginning of the last data line so that the notes of 
that line will be repeated; executes the note-playing subroutine just enough 
times to play the notes in the last data line. 
35 RESTOREs to the first data line and executes the subroutine enough 
times to play two data lines of notes, which is where the song ends. 
50 This subroutine plays all the notes. The pitch value is loaded into the 
tuning register, and channel A is enabled. After a PAUSE specified by the 
current data, channel A is disabled to switch the note off. 
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Sound Arrays 


Another technique for playing SOUND notes is particularly convenient for 
composing in more than one voice at a time; it has the added benefit of allowing 


you to save the data separately from the program. 


If, for instance, you wanted to add a line of harmony to the tune in the last 
program, inserting the channel B tuning values in the proper places in the DATA 
statements would be tedious, even if you managed to get them all correct on the 
first try. To solve this problem, approach the program in a different way, placing 
each of the note pitches and PAUSE values in successive elements of two arrays: 
array m (melody) and array t (time). To simplify this approach, we write out all 


the DATA instead of using RESTORE. 


10 


LET c=209: LET d#186:LET e=165:LET 
g=139:LET a=124 

LET Q=30:LET H=2x*Q 

SOUND 8,15 

DIM m(42):DIM t (42) 

FOR n=1 TO 42 

READ m(n),t (nm) sNEXT n 

DATA CCA Ag Ara AA Ag H 
DATA £,0,*,0,2e,Q0,2e,0,0d,0,0d,Q0,c,H 
DATA g9,Q9,9,90,f,0,4,0,e,0,e,0,0,H 
DATA g,Q,9,90,f,0,f,G@,e,0,e,0,d,H 
DATA cCA CA JAg Ar AA a Ag H 
DATA #,0,*,0,¢e,0,e,0,0d,0,d,0,c,H 


Now, to play the melody, all you have to do is add: 


20 FOR n=1 TO 42:S50UND Oom(n)s7»62:PAUSE t(n):SOUND 


7+63:NEXT n 


To add the harmony, add these DATA lines. It is necessary to provide the note 


names only, since the PAUSE values will be the same: 


106 
107 
108 
109 


DATA @,9:,@,C,f,0,@,0,60,¢C,9,0,6,¢c 
DATA @,c¢c,0,6,€,9,9 
DATA e,¢,0,6,¢,9,6 
DATA @, QC fC erd, DCO gD, 104 
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The main program has to be changed this way: 


10 LET c=209:LET d=186:LET e=165:LET £=#156:LET 
Q@=1S59:LETa=124:LET b#=220 

20 SOUND 8,153;9,12 

25 DIM m(42):DIM t(42):DIM h(42) 

40 FOR ni TO 42 

45 READ hin):NEXT n 

SO FOR n=1 TO 42:SOUND O,m(n)32,h(nd37,60s PAUSE 
t(m):SOUND 7,463:3NEXT n 


LINE NOTES 


10 Provides an additional LET statement to define the note b used in the 
harmony line. 


20 Sets channel B volume to 12, so it will be a little softer than the melody. 
25 Dimensions an additional array for harmony. 

40—45 Reads note values for channel B into array h. 

50 Loads channel B fine tune (register 2); enables channels A and B. 





Run this program to hear the new composition. You can alter the enabling 
command in line 50 to SOUND 7,61 to enable only channel B, so you can 
hear the harmony line alone. A third voice, for channel C, can be added in the 
same way. 


ENVELOPES AND NOISE 


Although the tones you have played so far with SOUND have had varied 
pitches, volumes, and durations, they all had one thing in common: each note 
began, continued, and ended at a steady volume. 

If you think about the sound of a note being played on a piano, you will 
realize that, although the pitch remains steady, the volume begins to fade 
immediately after the key is struck. And a horn player can keep a steady pitch, 
yet begin playing softly and build up to a greater volume. 

Using a few more of the T/S sound registers, you can control these aspects 
of a musical note, as well as others. These are the parameters to consider: 


1. Will the note begin softly and build to a maximum volume, or start at 
maximum and then fade? 


2. How long will it take the note to reach that peak (or minimum) volume? 
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Ds 


After the note has reached its maximum or minimum volume, will the sound 
end or continue? 


If the note continues, will the volume level remain steady (at minimum or at 
maximum ?), drop back to 0 and build again (or jump back to maximum and 
fade again), or alternate (that is, begin to fade if it has built up, or begin to 
build if it has been fading)? 


All these parameters contribute to the shape of a note, what is referred to as 


its envelope. These are the registers involved when you are defining an envelope 
for a tone: 


8,9,10: The volume register for the channel(s) being used is loaded with a 16 
to allow envelope control of the volume. 


11,12: These registers together control the period, how long it takes the 
volume to build or fade. Register 11 is fine control, while 12 is coarse 
control, much like fine and coarse tuning; both the period registers, 
however, can hold any value between 0 and 255. 


13: This register is loaded with numbers that describe the shape of the 
envelope. 


In addition to these registers, you will be using registers 0—6 to select 


the pitch of the note you want, and register 7 to enable the channel(s) you want 
to use. 


Envelope Shapes 


Register 13 controls the envelope shape. Certain numbers represent different 
parameters of the shape, and by adding them together and loading the sum into 
register 13, you can create the sound that you want. 


Build or fade: Adding a 4 means the volume will build; otherwise, the 
volume will start at maximum and fade. 


Hold: Adding a 1 will keep the volume steady; otherwise, it automatically 
drops to zero at the end of the cycle. 


Alternate: Adding 2 will make the build/fade cycle reverse itself. You can 
then hold the volume at the level opposite what it was when the cycle 
ended, or you can repeat reversed cycles so the volume will alternately build 
and fade. 
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Continue: The computer automatically plays the note for only one cycle. 
That is, even if you have programmed “hold” or “alternate,” the sound will 
end after the original build-up or fade. By adding 8 to the shape register, you 
can make the sound continue past the first cycle so that you can hear the held 
volume, or the alternating cycles. 


These values must be combined to achieve the desired effect, as will be 
demonstrated in the following programs. (There is a SOUND utility routine in 
Chapter 12 that you might want to use along with this chapter instead of typing 
in all the short programs. Use the utility to load the registers indicated in each 
example program.) 

Start with this short routine: 


10 SOUND 7,63 
15 SOUND 0,100 
20 SOUND 8,16 
25 SOUND 12,50 
30 SOUND 13,4 
35 SOUND 7,62 
40 PAUSE 0 


LINE NOTES 


10 Disables all channels. This won't matter the first time you run the 
program, but on subsequent runs, the channels should be disabled while the 
registers are loaded with new values. 


15 Sets the channel A fine-tune value (you can substitute any other valid 
number). 


20 Loads the channel A volume register. Loading it with 16 means that the 
envelope will control the volume. 


29 Controls the envelope period—that is, how long the cycle will be, how 
long the note takes to build or fade. 


30 Loads the envelope control register with a 4; this means the note will 
build in volume. 


35 Turns on the sound by enabling channel A. 


40 Through PAUSE O, keeps the SOUND registers active until you press a 
key, at which point the program ends and the sound will stop. Without such a 
PAUSE, the sound will be cut off at the end of the program before it has a 
chance to build up the volume. A PAUSE is not necessary when the sound 
routine is embedded in a program. 





The first variation of this program lets you experiment with different en- 
velope periods by putting different values in registers 11 and 12: 
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10 SOUND 7,643 

12 INPUT "register 11 (fine) "3f’* "register 12 
(coarse) "c 

15 SOUND 0,100 

20 SOUND 8,16 

25 SOUND 11,f;12,f 

30 SOUND 13,4 

35 SOUND 7,62 

40 PAUSE © 

45 GO TO 10 


You will find that altering the coarse register has a much more noticeable effect 
than changing register 11; in fact, every 1 put into register 12 is worth about 256 
times as much as every 1 put into register 11. 

This next variation will allow you to add different values to register 13. Try 
each of the possible values; Table 9-3 lists and explains each value and provides a 
graphic representation of each of the shapes. 


10 SOUND 7,63 

12 INPUT "register 137 "33a 
15 SOUND 0,100 

20 SOUND 8,16 

25 SOUND 12,50 

20 SOUND 13,5 

35 SOUND 7,62 

40 PAUSE O 


Other Considerations 


Regardless of the period that you program for the envelope, the sound will be 
cut off when the program ends or when you cut it off yourself. Because you can 
cut off a sound before the cycle is completed, you have some further options in 
your sound programming. Try this: 


10 SOUND 8,16 

15 SOUND 12,100 

20 SOUND 0,100 

25 SOUND 13,4 

30 SOUND 7,62 

35 PAUSE 300 

SO FOR r=O TO 13:SOUND r,O1 
NEXT riSOUND 7,63 


The 5-second pause allows the entire cycle to be completed before the sound 
is switched off. Change the PAUSE to 120 and run the program again; the sound 
will be switched off before maximum volume is reached. The PAUSE values that 


SOUND 
TABLE 9.3 REGISTER 13 VALUES DETERMINING 
ENVELOPE SHAPE 
Explanation 


ii 
/ 


NANA 


olla 


Value 


O 
4 
8 


10 


11 


12 


13 


14 


15 


The volume will begin at maximum and fade. 
The volume will begin at minimum and build. 


The sound will continue, and the cycle will 
be repeated. Since 8 is for continue, the 
build/fade parameter is O, or fade. The 
volume starts at maximum, fades, jumps 
back to maximum, fades, and continues 
that way until you press a key. 


The sound will continue (8), being held (1) 
at the volume at the end of the cycle. 
However, since the cycle was such that 
the volume ended at minimum, you cannot 
hear the sound continuing. 


The sound continues (8) past the first cycle, 
alternating (2), beginning with a fade (0). The 


alternating cycles then build, fade, build... . 


The cycle fades first (Q). The sound 
continues (8), but since alternate (2) is in 
effect, the volume jumps back to maximum 
because it ended at minimum. Since hold (1) 
is also on, the volume stays steady at 
maximum until you turn it off. 


The cycle builds (4), and it continues (8). The 
volume drops right back to O after each 
cycle because neither hold nor alternate is 
in effect. This is exactly the opposite of the 
shape achieved with value 8. 


The volume builds first (4), the sound 
continues (8) at the maximum volume 
because hold (1) is in effect. This shape is 
the opposite of that achieved with a 

value of 9. 


The volume builds first (4), the sound 
continues (8), and the cycle alternates (2) 
from build to fade and back again. This is the 
opposite of value 10. 


The volume builds (4) and the sound 
continues (8). Since alternate (2) is on, the 
hold (1) keeps the volume steady at the 
opposite end of the volume scale from where 
it was when the cycle ended. Because it is 
being held at minimum volume, you can’t hear 
it; so, although this shape is the opposite of 
value 11, it sounds the same as 4. 
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allow the cycle to be completed will vary according to the period programmed in 
registers 11 and 12. 

Remember, you can define an envelope so that it takes a certain amount of 
time to reach maximum (or minimum) value, but other factors in the program 
will determine whether the sound will stay on long enough for the entire cycle to 
be heard. You will have to be especially careful when you are alternating build 
and fade cycles. If you want to hear only two cycles, that is, a build followed by 
a fade: 


SN 


you will have to turn off the SOUND at just the right time. Otherwise, you will 
get one of these: 


fo ff AN 


Special Effects 


Just because the SOUND is under envelope control does not mean that other 
parameters, such as pitch, can’t be changed while the cycle is running. This 
program, for instance, will make the tone get higher as it fades away: 


10 SOUND 8,16 

15 SOUND 12,50 

29 SOUND 13,0 

24 SOUND 7,62 

30 FOR n=255 TO O STEP-1 

35 SOUND O,nmniNEXT n 

40 PAUSE © 

45 FOR r#O TO 13:SOUND r,0O:3 
NEXT rsSOUND 7,63 


As soon as channel A is enabled in line 30, the tuning register is loaded with 
ever decreasing values. Since register 13 is loaded with 0, the sound fades. Try 
changing: 


43 PAUSE 80:G0 TO 10 
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You can experiment further with this program by changing the period of the 
cycle (line 15), changing the cycle from fade to build, or letting the pitch 
decrease instead of increase by changing the FOR-NEXT loop. 


Multichannel Envelopes 


You can, of course, use channels B and C instead of, or in addition to, channel A. 

Although each channel, if you give it over to envelope control by loading its 
volume register with 16, is controlled by the same envelope shape and period, 
the pitches can vary: 


10 SOUND 8, 16;9,16;10,16 
15 SOUND 0, 13932, 18634, 209 
20 SOUND 12,503;13,14 

25 SOUND 7,56 

30 PAUSE 530 

35 SOUND 7,63 


Because the shape register (13) is loaded with 14, the chord will begin softly and 
build, and then alternate and fade. The PAUSE command allows the cycle to be 
repeated four times. 

You can keep one or more channels out of envelope control. Change: 


10 SOUND 8+10539+165:10;516 


This alteration removes channel A from envelope control so it plays a note at a 
steady volume while the other two channel volumes vary according to the 
envelope shape. 


Noise 


Any channel can be enabled for noise instead of tones, and the noise can be 
controlled in the same way as the tones—the pitch can be chosen, a duration can 
be set, and the noise can be controlled by an envelope. 

First, to enable a channel for noise, certain numbers must be subtracted 
from the value (63) in register 7: 


For channel A, 8 
For channel B, 16 
For channel C, 32 


So, if channel A is enabled for noise, register 7 is loaded with a 55, and so on. As 
with tones, more than one channel can be enabled for noise at a time. 
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The only register not yet used is register 6, which sets the frequency of the 
noise. It can hold any number between 0 and 31; the higher the number, the 
lower the pitch of the noise. 

To hear the different noise pitches, try 


10 FOR p=0 TO 31 
15 SOUND 6,p 

20 SOUND 8,15;7,55 
25 PAUSE 120 

30 SOUND 7,43 

35 NEXT p 


LINE NOTES 


15 Loads different pitch values into the noise frequency register. 


20 Sets channel A at maximum volume; enables channel A for noise. 
30 Switches off the sound before the next pitch is loaded. 





The first few loops have the highest pitches; as the frequency drops, the volume 
seems to increase, until it levels off at about the tenth loop. 


Special Effects 


The noise channel, when under envelope control, can make almost any sound 
effect you can think of. 


Gunshots Gunshots have a medium pitch, begin at maximum volume, and fade 
quickly: 


10 SOUND 8,16 

15 SOUND 6,12 

20 SOUND 13,0 

295 SOUND 12,15 
30 SOUND 7,55 

35 PAUSE 40 


Explosions An explosion, like a gunshot, starts at maximum volume and fades. 
However, it fades more slowly and is of lower pitch. In order for it to be very 
loud at its maximum, all three channels are used at once: 


10 SOUND 8, 1639, 16,10, 16 
15 SOUND 6,25 

20 SOUND 13,0 

25 SOUND 12,70 

30 SOUND 7,7 

35 PAUSE 180 
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Bomb To create the effect of a falling bomb, you need an envelope-controlled 
tone that fades as its pitch gets lower. Add these lines in before the explosion 
routine: 


2 SOUND 8,16 

4 SOUND 12,200; 13,0 

6 SOUND 7,62 

8 FOR p=0 TO 255: SOUND 0O,p:PAUSE 2:NEXT p 


Putting a very short PAUSE inside the loop controls the speed at which the pitch 
changes; the envelope period controls the speed at which the volume changes. 


Dragon Roar A roar is a low-pitched noise that begins at 0 volume, builds 
quickly to maximum volume, and begins to fade back to 0. For the best effect, 
the sound should be cut off before the volume reaches 0 again. 


10 SOUND 8, 1639, 163;10,16 
15 SOUND 6,30 

20 SOUND 13,14 

25 SOUND 12,18 

30 SOUND 7,7 

35 PAUSE 70 


Noise and Tone 


A channel can be enabled for both noise and tone at the same time. The 
following program enables channel A for noise and tone, putting both under 
envelope control. While the noise pitch remains constant, the pitch of the tone 
changes, for a final effect of . . . a flying saucer landing? a laser gun running 
down? 

10 SOUND 8, 1636, 30313, 4;12,120;7,54 

15 FOR p#1i00 TO 200 STEP 2 

29 SOUND 0O,p 


25 PAUSE 10:NEXT p 
30 PAUSE 300 


Sound and Motion 


Coordinating graphics with BEEFPs is simple, but of limited usefulness; since the 
BEEP command contains a time value, the whole program stops until the BEEP 
is finished. The SOUND command, on the other hand, can be set up so that the 
sound can continue while the computer goes on with another portion of the 
program. 
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Timing is important in coordinating sound and graphics, and good coordina- 
tion takes a lot of experimentation and practice. Any time a SOUND parameter 
is to be changed, it has to be placed in just the right part of the program so that 
the change will be properly coordinated with the graphics on the screen. The 
simplest coordination is one in which the screen changes at the same time a 
sound parameter does. Since a fine-tune register can take any value between 0 
and 255, and those are the possible x coordinates for a PLOT command, the 
obvious application is 


10 BORDER 6:PAPER O:CLS 

15 SOUND 8,1537,62 

20 FOR c#0O TO 135:FOR p=0 to 255 
29 SOUND O.prPLOT INK c/23p,11%c 
20 NEXT psNEXT c 


The coordinates of the PLOT command and the ink color depend on the 
values in the two loops controlling the coarse and fine tuning of register A. 

Now try this enhancement of the whistling bomb routine—the bomb drops 
down the screen and explodes at the bottom: 


10 SOUND 8, 163;12,953;13,4:7,62 
15 FOR r=0 TO 21 

20 PRINT AT r,163"0" 

2) FOR p#1 TO 10:SOUND 0O,r%*10+p 
30 NEXT p 

35 PAUSE 2 

40 PRINT AT r,163" "sNEXT r 
45 SOUND 8,16;9,163;10,16 

S50 SOUND 6,25313,9312,7037,7 
55 FOR n=1 TO 10 

60 PLOT RND&*15+120, RNDX10 

65 NEXT n 

70 FOR n#1 TO 10 

75 PLOT RND*25+110, RNDX10 

80 NEXT n 

83 FOR n=1 TO 10 

90 PLOT RND&40+107, RNDK10 

935 NEXT n 

100 PAUSE 60:CLS 
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LINE NOTES 


10 Sets the sound register for whistle effect. Sets the envelope control 
for channel A, sets the period, chooses the fading cycle, and enables channel 
A for tone. 

15 Begins the loop for PRINTing the bomb. 


29 Runs the tuning register through 10 frequencies for each position of 
the bomb on the screen. 


35 Slows down both visual and audio effects. 


45—50 Sets up sound registers for the explosion. 

55—65 Plots points on the screen in the vicinity of the bomb’s landing 
point, for the explosion effect. (This loop is performed while the envelope is 
still controlling the explosion.) 


70—95 Uses two loops to PLOT random points in increasingly larger areas 
to simulate the spreading debris of the bomb. 











Peek and Poke 


PEEKING AND POKING AROUND 


You can visualize the computer’s memory as a long row of containers— 
thousands of them. Each container is identified by a number, called an address, 
and can hold eight bits (one byte) of information. 

Addresses 0 through 16383 comprise the ROM—-read only memory. You 
can look at the contents of these containers, but you can’t change them. Address- 
es from 16384 to 65535 are RAM——random access memory. The contents of these 
containers can not only be looked at, they can also be changed. 

As you know from working with user-defined graphics, the POKE command 
places a number into an address. To see what is stored at any particular address, 
the PEEK function is used. 

To see how PEEK works, first 


PUKE 63368;10 





Now, to check that there is a 10 in that address, try 
FEER 65366 
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Nothing seemed to happen, but the computer gave an “OK” report. You told 
the computer to PEEK at an address, and that’s exactly what it did. You didn’t 
tell it to let you know what it found. Try 


PRINT PEEK 65368 


It is important to realize that “PEEK xxxxx” represents a number, and it can 
be treated like any other number: it can be multiplied, divided, assigned a 
variable name, and so on. It can even be POKEd into an address whose number 
is represented by another PEEK expression. So, 


POKE PEEK 16430» PEEK 16580 


is a perfectly valid programming statement. 

To make use of PEEK and POKE, you must know where to PEEK, what to 
POKE, and when to do either. You also have to know what the stored values 
represent: a 97 could represent the letter “a,” the number 97, or part of a 
pattern for a defined character, depending on the address in which it is stored 
and the use you make of it. 


Double-Byte Storage 


Since the computer stores numbers in bytes that are eight bits long, the highest 
binary number an address can hold is 11111111, or 255 decimal. Obviously, the 
computer couldn’t do much if it were always limited to 255 as its highest number, 
so many bytes are paired to give greater storage capacity. 

Numbers up to 255 are stored in a single byte. If a number is over 255, it is 
divided by 256. This shifts a binary number eight places, just as dividing by 100 
shifts a decimal number two places. The result of this division is stored in the 
second byte of the pair, and any remainder is put into the first byte. (Paired bytes 
are referred to as high-order and low-order bytes, with the division result stored 
in the high-order byte and the remainder in the low-order byte. The following 
numbers would be stored as indicated here: 


High-order 


byte Low-order 
(division) byte 
result) (remainder) 
298 298/256 = 1» ooog0000T 00000010 
remainder 2 

Lane 1392/2356 = 3» 00000101 01110000 
remainder 112 

46656 46656/256 = 182, 10110110 01000000 


remainder 64 
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We now have the ability to store a 16-bit (two bytes) binary number. The 
capacity of a double byte is 1111111111111111, or 65,535 decimal. 

To retrieve a number from double-byte storage, you must take the contents 
of the second byte, multiply it by 256, and add it to the contents of the first byte: 











2nd byte: 00000001 1*#256 = 256 
lst byte: 00000010 + £ 

258 
2nd byte: 00000101 5*256 = 1280 
ist byte: 01110000 +117 

1392 
2nd byte: 10110110 182*#256 = 46592 
lst byte: 01000000 +64 

46656 
System Variables 


A certain amount of RAM, beginning at address 23552, is special; it is not just 
empty memory waiting to be filled, but is used by the system to control certain 
operations. These special bytes are called the system variables. Each byte, or 
sometimes pairs of bytes, in this section has a name that makes it easy for us to 
refer to it and remember what it controls. The names, however, are only 
for human convenience, and are not recognized by the computer as are variable 
names. 


Keyboard POKEs 


There are three system variables with which you can experiment that involve the 
keyboard: PIP, REPDEL, and REPPER. 


PIP PIP controls the length of the click when you press a key. As you may recall 
from working with the BEEP command, a very short tone results in a clicking 
sound; the keyboard click is actually a tone. PIP is at address 23609. Try PRINT 
PEEK 23609. A 0 is currently stored at that address. Enter POKE 23609, 5 and 
then try PRINT 12345. You will notice that the key click has turned into a sort of 
blip. Try POKE 23609, 20 and then another PRINT command. Next, try POKE 
23609, 50 and another PRINT command. 
Since PIP is a byte long, you can POKE it with any number up to 255. 
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REPDEL The second interesting keyboard system variable, REPDEL, is at 
23561. REPDEL stands for repeat delay, and it controls how long a key must be 
held down before it repeats. The command PRINT PEEK 23561 returns a 35, 
which stands for 35/60 of a second. 

Enter this program: 


10 INPUT n 
15 POKE 23561 sn 
20 INPUT a$ 


Run the program, entering 100 to be POKEd into REPDEL. Then hold your 
finger down on any key; you will notice the longer wait before it repeats. 

Run the program a second time, entering 255 for the POKE value. This 
time, you will have to hold the key down for nearly 5 seconds before it repeats. 
This kind of POKE within a program will prevent inadvertent key repeats; it is 
especially useful in programs that will involve young children using the com- 
puter. 

Run the program again, entering a 1. You will find it practically impossible 
to enter a single character because the key will begin to repeat before you can 
remove your finger. 

Before trying the next program, REPDEL should be returned to its original 
value of 35. You can try this as a direct command or by running the program 
again. It will be difficult to enter a 35 directly because of the fast repeat—try 
entering a 33 first (one key press will do it!) and, on another run, the 35. 


REPPER The third keyboard system variable is REPPER, at address 23562. It 
controls how quickly the repeats occur once they begin. Try PRINT PEEK 
23562. Again, the 5 means 5/60 of a second. Edit the last program to 


10 INPUT n 
15 POKE 23562 +n 
20 INPUT a$ 


and input 100 for the POKE value. Hold down a key for the string INPUT, and 
see how long the repeats take. Run the program again, inputting 255 for the 
POKE value, and then once again, inputting a 1. 
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Combining Keyboard Pokes After you regain control of the keyboard by input- 
ting a number that will slow things down, try controlling all three keyboard 
variables together with 


10 INPUT n 

19 POKE 23561 +n 
20 POKE 23562 on 
29 POKE 23609 on 
30 INPUT a$ 


Start with a high POKE value, and use lower values on subsequent runs 
until you are down to a 1. If you can’t get things back to normal, switching 
the computer off momentarily will reset all the system variables back to their 
default values. 


Screen POKEs 


The system variable at 23692 is called SCR CT (scroll count). The contents of 
SCR CT tell the computer how many times to scroll the screen—move it upward 
one line—before stopping with the “scroll?”’ prompt. The number in SCR CT is 
one more than the number of scrolls to be performed. 

The default value of SCR CT is always 1; the T/S doesn’t scroll at all after 
the screen is full. 

If you want to print 25 lines of information without the scroll prompt 
appearing, you would have to poke SCR CT with a 4. You need three scrolls to 
get past the 22-line screen limit, and SCR CT holds a value that is one more than 
the number of scrolls: 


10 PORE 23692 +4 
15 FOR n=1 TO 25 
20 PRINT nz NEXT n 


Instead of trying to figure out the exact number of scrolls you need, you can 
just poke SCR CT with a very high number: 


10 POKE 23692 +235 
15 FOR n=1 TO 100 
20 PRINT nz: NEXT n 


You can always put the POKE statement within a loop, or in other parts of 
the program that will cause SCR CT to be POKEd repeatedly, to keep it high- 
er than 1. 
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10 FOR n=1 TO 25 
1S POKE 23692 +2 
20 PRINT ns NEAT n 


Being able to scroll the screen upward gives another opportunity for moving 
graphics. Try this program: 


10 PRINT AT 14,43 "p" 

15 FOR i=1 TO 4:PRINT TAB 43 "@BB"sNEXT i 
20 PRINT TAB 4; "FE" 

25 FOR i#10 TO O STEP -1:PRINT AT 21,031 
J0 BEEP .5,5: PAUSE SO:PRINT AT 21,0; " "NEXT i 
35 POKE 23692, 255 

40 SOUND 7,5536, 2538, 163;12,20;13,13 

45 PAUSE 10 

S50 FOR i#1 TO 3: PRINT TAB 45 "XK"sNEXT i 
55 FOR i=1 TO 10: PRINT TAB 4;".."sNEXT i 
60 FOR i=1 TO 22:sFRINT: NEXT i 


LINE NOTES 


10 Prints the graphic symbol on 5 key, first unshifted, then shifted. 
145 Prints the graphic symbol on 8 key, twice, shifted. 
20 Prints the graphic symbols, shifted 4 and unshifted 7. 


25—30 Provides countdown. 

35 POKEs SCR CT. 

40 Sets up the SOUND registers for the rocket blast. 
50—55 Prints a ‘trail of smoke.” 


60 Prints nothing on the screen but keeps it scrolling upward (empty PRINT 
statements). 





The system variable DF SZ, at 23659, is marked with an X in the user’s 
manual, which means it’s a little dangerous to POKE. POKEing it could cause 
the system to crash, resulting in the loss of whatever program is in memory and 
necessitating turning the computer off to regain control. (No lasting damage will 
be caused.) A few judicious POKEs of 23659, however, won’t cause a crash and 
will add to your repertoire of screen-handling techniques. 

DF SZ defines the size of the screen by keeping track of the number of lines 
reserved in the lower portion of the screen for input, or for program line en- 
try. Try 


10 POKE 23659 +20 
15 FOR i=1 TU 8 
20 PRINT i 

29 NEAT i 
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The computer will stop printing after the number 4 because you have reserved 20 
lines for the “lower portion” of the screen. (The screen is actually 24 lines—22 
in the usual printing area and two for the lower portion.) 

If you press a key so that the screen will scroll, you will see that the 
remaining numbers scroll up from the bottom of the screen. When you POKE 
DF SZ, it doesn’t stay POKEd! 

Add 5 POKE 23692,5 to make the upper portion of the screen scroll 
automatically. 

This next version of the program makes for a more impressive demonstra- 
tion of the partial-scroll technique (make sure you add the semicolon to line 20): 


> POKE 23692 35 

10 POKE 23659 +20 

15 FOR i=1 TO 8:FOR n=1 TO 32 
20 PRINT i; 

29 NEXT niPRINT:NEAT i 


Now, try this: 


10 PUKE 236590 
15 FOR i=1 TO 24 
20 PRINT i:NEAT i 


This should let you PRINT to all 24 screen lines, since it reserves no lines for 
the lower portion of the screen, right? What actually happens is a mildly 
interesting system crash—you’ll have to turn off the computer to regain control. 
And that is what the X in the user’s manual warns about! 

Another safe use of DF SZ, though it is of limited value, is POKEing it after 
you have printed something on the screen. Try 


10 FOR i=1 TO 22: FOR n=1 TO 16 
15 PRINT i35 

20 NEXT niPRINT:NEXT i 

29 POKE 236585 +20 


The instant erasure of a large portion of the screen would certainly be a 
handy programming option; unfortunately, it only works at the end of a pro- 
gram. If you try to PRINT to the lower portion of the screen, you will get an 
“out of screen” error because the computer thinks there is no screen left. (You 
can still PRINT AT in the upper screen area.) 

POKING a 2 back into DF SZ won’t work, either: 


30 POKE 23659 +2 


The screen isn’t erased at all! 
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ATTRIBUTE BYTES 


The four main attributes, INK, PAPER, BRIGHT, and FLASH, can be either 
permanent, affecting all screen printing unless otherwise specified, or temporary, 
affecting only the current print or graphic command. 

In either case, all four attributes are controlled by one byte, as follows: 


bit 
ail 





PAPER 


BRIGHT 


The first three bits of an attribute byte control the INK color. (Bits are 
numbered 0-7, counting from the right.) The next three bits are for PAPER 
color, and the last two control BRIGHT and FLASH. 

The INK colors are relatively easy to POKE, since their binary and decimal 
numbers match, as shown in Table 10-1. 

The PAPER colors are slightly more complicated to use, because bits 3-5 
control PAPER color (see Table 10-2). 


TABLE 10.1 BIT CODES FOR INK COLOR 


Decimal 
Bits Color value 
0o00 BLACK 0 
001 BLUE 1 
010 RED 2 
ae i MAGENTA 3 
100 GREEN 4 
1607 CYAN 5 
1110 YELLOW 6 
tay WHITE 7 
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TABLE 10-2 BIT CODES FOR PAPER COLORS 


Decimal 
Bits Color value 
OOOxxx BLACK 0 
OD 1 «xx BLUE 8 
O01 0xxx RED 16 
O01 1 «xx MAGENTA 24 
100xx% GREEN 32 
10.1 xxx CYAN 40 
11 0XXX YELLOW 48 
11 1 eR WHITE 55 


There are two observations that will make POKEing PAPER color values 
easier. First, the bit pattern is the same as for INK colors: 





bits 
51413,211;0 
0 (B) is red INK 
x x is red PRAPER 
0 1 is blue INK 
x Ix] x is blue PAPER 


Second, the decimal value for the PAPER color is 8 times the color number. So, 
if PAPER and INK are both cyan, this is how bits 0-5 look: 





PAPER INK 


The decimal value of this binary number is 45. The color number for cyan is 5. 
Adding together the basic color number for INK (5) and the color number times 
8 (5*8 =40) for PAPER results in a POKE value of 45 to get cyan PAPER 
and INK. 
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The last two bits in the byte control FLASH and BRIGHT. 


pe i 


FLASH 
BR I GHT 


If either bit is set at 1, the corresponding attribute will be activated. Setting bit 6, 
01000000, requires POKEing a decimal value of 64. To set bit 7, 1000000, a 
decimal 128 must be POKEd. 

If you want both FLASH and BRIGHT to be activated, you must POKE 
128+ 64, or 192. The 192, however, would be in addition to whatever INK and 
PAPER values need to be POKEd. To turn on FLASH and BRIGHT and 
specify cyan PAPER and INK, a total of 237 would have to be POKEd into the 
appropriate address. 


Poking Permanent Attributes 


The system variable at 23693 is ATTR P, and its contents control which are the 
current permanent FLASH, BRIGHT, PAPER, and INK values. If you wanted 
to use 


BRIGHT 1:FLASH 1:PAPER 1: INK 5 


you could instead use POKE 23693, 205. 
The POKE value was arrived at like this: 





FLASH on 128 
BRIGHT on 64 
PAPER 1 (1*8) 8 
INK 5 3 
Total 205 


Following the POKE command with a second press of the ENTER key, or 
with a CLS command, will result in a flashing screen as the INK and PAPER 
colors alternate. 

To return the screen to its normal attributes, use POKE 23693,56. This turns 
off FLASH and BRIGHT and POKEs in an INK value of 0 (black) and a 
PAPER value of 7*8, for white. 
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The Attribute File 


Every character space on the screen—a total of 704 spaces made by the 32 
columns and 22 lines—has a byte in the computer’s memory that keeps track of 
the attributes assigned to that particular space. The series of bytes that contain 
screen attribute information is called the attribute file. While there are actually 
two attribute files in the 2068, the one that is addressable from BASIC and 
controls the normal screen begins at address 22528. 

You can POKE values directly into the attribute file, with some interesting 
results. First, try this program, which will POKE a PAPER color of yellow into 
every byte of the attribute file. (Yellow is 6, so 6*8 is used as the POKE value.) 


10 FOR n=22528 TO 22528+704 
15 POKE n+» 48 
20 NEXT n 


With this method, we can prove part of the user’s manual wrong—it says 
you can’t change the PAPER color without a second ENTER or CLS, erasing 
whatever is on the screen. In fact, whatever is on the screen at the time the 
attribute file is POKEd will not be erased by the change of PAPER color. Try 
adding these lines to the last program: 


2 FOR a=1 TO 22 
4 PRINT TAB Bs "KEK KRHRKRKRKHEHE" 
6 NEXT a 


For an even more interesting effect, change line 15 to 15 POKE n,51. This 
will change the attribute bytes to yellow PAPER (48) and red INK (3). As the 
background turns yellow, the black asterisks will be ‘‘flipped”’ to red. 

It is not necessary to POKE the entire attribute file. The file’s addresses 
correspond to the screen character spaces beginning at the top left corner with 
address 22528 and ending in the lower right corner with address 23232. So, it is 
possible to POKE selected addresses. Add this to the last program: 


29 LET adr#22540 
30 FOR i#1 TO 22 
35 FOR n#0 TO 7 
40 FOKE adr+n, 23 
45 NEXT n 

SO LET adr=adr+32 
wo NEXT i 


This will change the center portion of the screen to red PAPER and white INK. 
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It is important to note that, while you have manipulated the attribute file 
directly, the permanent attributes have not been changed. Add these lines and 
run the program again: 

60 PRINT AT O,Sy"a"sAT 0,10p"b"3AT 0,153 "c" 
65 PRINT INK 8; AT 2,5; "a"sAT 2,10;"b" AT 

ou te ba 
70 PRINT INK 8; PAPER 8; AT 4,5; "a"yAT 4,10; "b" 

AT 4,153 "c" 

The letters printed in the first row are all black on white, because those are 
still the permanent INK and PAPER colors. The second row of letters is printed 
in transparent ink, which means the color was taken from the attribute file, 
which keeps track of the attributes for each space. The a and b are printed in red 
because you POKEd the attribute bytes with red INK; the c is printed in white 
because that is the INK color POKEd into that screen spot. However, all the 
letters were printed on white paper, which is still the permanent PAPER 
attribute—that is why you can’t see the “c.” The last row of letters uses 
transparent INK and a transparent PAPER color, leaving a and b red on yellow, 
and c white on red. 


THE CHARACTER GENERATOR 


The T/S character generator, which stores the “maps” for each of its printable 
characters, begins at address 15616. The first character map is that of the space; 
the others follow in order of their character codes. 

We can easily PEEK at any of the maps. Try: 


10 FOR p=0 TO 15 
15 PRINT PEEK (15616+P) 
20 NEXT P 


This will print the contents of the first 16 bytes of the character generator, 
which store the first two characters: the space and the exclamation point. 

The eight 0’s printed out first represent the space—there are no ink pixels 
for the space character. The next eight numbers—0, 16, 16, 16, 16, 0, 16, 
0—make up the map for the exclamation point: 
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With a BASIC routine that lets us look at one bit at a time, we can get the 
computer to print out the binary value of the bytes and to draw the map for us. 


Bit by Bit 


Converting decimal numbers to binary is a simple matter of dividing by powers 
of 2. Since the leftmost bit of a byte represents 128, we can start with that 
number: 217. 

If you want to convert the decimal number 250 to binary, you can start by 
trying to divide it by 128. The result is 1 or more, so the leftmost bit of its byte is 
set at 1. Mathematically speaking, if INT(250/128)>=1, then set bit. Then we 
have to subtract 128 from the decimal number: 250 — 128 = 122. Next, divide the 
result by the next lower power of 2: 216, or 64. 

The process is repeated, as follows: 


2T? INT(250/128)=1 250- 128= 122 
2T6 INT(122/64)=1 122—64=58 
2ts INT(S8/32)=1 58-—32=26 

ZTA INT(26/16)=1 26—16=10 

Z2T3 INT(10/8)=1 10—8=2 


T2 INT(2/4)=0 (No subtraction) 
ZT 1 INT(2/2)=1 2—2=0 
2TO INT(O/1)=0 


The important thing to note about this process is that the bit value is not 
subtracted from the remaining decimal value unless the result of the integer 
division was 1. (And, by the way, any number raised to the zero power is 1.) 


Character Maps 


The computer will draw a binary map of an exclamation point with the following 
program, in which each bit of the eight bytes in the map is examined. 


10 FOR a=0 TO 7 

15 LET p=PEEK (15624+a) 

20 FOR b=7 TO O STEP -1 

25 PRINT INT(p/2!b)3 

30 IF INT (p/2!b) THEN LET p=p-2!b 
35 NEXT bs PRINT: NEXT a 
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LINE NOTES 


10 Sets up a loop for the eight bytes to be examined. 
15 PEEKs at the bytes of the character map one at a time. 


20 Sets up a loop for each of the bytes in the current byte. 


25 Calculates the bit value and prints it. On each loop, the value of b 
decreases, so the power of 2 that is the divisor gets lower. 


30 Performs the necessary subtraction if the bit is a 1. 





Oversized Characters 


By having the computer translate the 0’s and 1’s of the bit map into appropriate 
graphics characters, you can print enlarged characters on the screen. 

Since you want a blank space for the 0’s and a filled-in block for the 1’s, you 
can simply use: 


29 PRINT INVERSE INT(P/2Tb) 5" "5 


By using the integer expression as the argument for INVERSE, you ensure that 
a regular space (INVERSE 0) will be printed when the bit is set to 0; a block of 
color (an inversed space) will be printed when the INT expression equals 1, 
because the INVERSE argument of 1 turns that attribute on. 

You may have noticed that the first and last bytes of almost every character 
map are 0’s, to keep the characters from running into each other on the screen. 
Many intermediate bytes are also 0’s, particularly in the case of symbols (= ,<,’, 
and so on). 

You can add a line that will speed the program execution considerably by 


skipping to the next byte of the map when the current byte holds a 0: 
18 IF p=0 THEN PRINT: NEXT a 
To see the entire character set, add 


10 LET a=0 

18 IF Pp=0 THEN GO TO 45 

39 NEXT b 

45 LET a=ati:sPRINT:GO TO 15 


and scroll the screen as necessary, or add a line that will keep it scrolling 
automatically. 


180 CHAPTER TEN 


Character Set Pointer 


CHARS is the system variable that keeps track of where the character maps 
begin; it is two bytes long, at addresses 23606 and 23607. To retrieve the number 
stored there, use this formula: 


PRINT PEER ZoSOBt+2ZSG6#PEERK 23607 


This will multiply the contents of 23607 by 256 and add the result to the contents 
of 23606. The number that is returned by the above command (15360) is 256 less 
than the beginning of the character maps; so, they actually begin at 15360 + 256, 
or address 15616. (Of course, you already know that; you just worked with it in 
the last section.) 

You should note the relationship between the code of a character and the 
location of its map. The first printable character, the space, begins at 15616, and 
its code is 32. A character’s map begins at 8 times its CODE beyond the address 
pointed to by CHARS. The following is an altered enlarged-character program 
that allows you to INPUT the character that you want enlarged. 


S INPUT a$ 

10 LET map=(PEEK 22606+256*PEEK 234607)+CODE a%x8 
15 FOR a=0 TO 7 

20 LET p#=PEEK (map+a) 

295 IF p#0O THEN PRINT: NEXT a 

30 FOR b=7 TO O STEF -i 

35 PRINT INVERSE INT(p/2%b);" "3 

40 IF INT(p/2%b) THEN LET p=p-2%b 

45 NEXT bsPRINT: NEXT a 


POKEing CHARS 


Using CHARS in the above program was not necessary, since you already knew 
where the character maps begin. However, since CHARS is a system variable, it 
can be POKEd as well PEEKed. You can make the computer look in a different 
spot for the character maps by POKEing a different value into CHARS. Once 
you hurdle the minor obstacle of loading numbers into two-byte storage, there 
are many things you can do by POKEing CHARS. 

The current value of CHARS, 15360, is stored in the following manner: 


0 is stored at address 23606. 
8 is stored at address 23607. 


because 15360/256 is stored in the second byte, and its remainder in the 
first byte. 

This short program will change the contents of CHARS by 8—the size of 
one full character map. As a result, when you input “a,” it will appear as “b,” 
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and so on. As a matter of fact, the L cursor in the prompt appears as an M 
cursor, and the quote marks appear as the “#” symbol! Pressing any key after 
entering your input will return the character set to normal. 


10 POKE 23606,8:FPOKE 23607, 60 
iS INPUT a$:FPRINT a$ 

20 PAUSE O 

25 POKE 23606,0:POKE 23607, 60 


Try deleting lines 20 and 25, and run the program again. Then press ENTER 
to get your listing back. Your screen will show 


P'21!QPLF!34717-9!QPLF!34718-71 
| 1! 267 J0G6GYU!67Z5!0QSJ0U!G6%X 


The flashing L cursor appears as a K cursor. To get things back to normal, press 
the O key for POKE, and 


QPLFE ! 


will appear. Then press 23606,0 which will appear as 34717-1. 
Enter this strange-looking command, and CHARS will be reset to normal. 
Try the original program again, offsetting the character map only halfway: 


10 POUKE 23606+4:POKE 23607 ;60 


The strange symbols on the screen are a result of the computer’s using the 
bottom half of one map and the top half of another to form each character. 

The real benefit of being able to relocate the character map is that it can be 
placed in an area of memory that you can POKE with values to design your own 
character set (the way you designed graphic characters). You can then have the 
computer print in italics, Greek letters, or Palmer penmanship. 

If you try such a project, however, plan to first copy—by PEEKing, then 
POKEing—a lot of the regular character map first, so you have some basic letter 
forms to work with! 


TIMING THINGS 


The system variable at addresses 23672 through 23674 is called FRAMES; not 
surprisingly, it counts the frames sent to the television set or monitor. Since there 
are 60 frames sent every second, FRAMES counts in sixtieths of a second. The 
computer refers to FRAMES when a PAUSE command is used, counting the 
number of frames specified in the command; that is why the PAUSE argument is 
given in sixtieths of a second. 

PEEKing at the value in FRAMES before the computer performs an opera- 
tion and again afterward will give you the number of frames that have gone by 
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during the operation; dividing that number by 60 will give you the number of 
seconds that have passed. 

FRAMES is a three-byte system variable; working with just two of its bytes, 
however, gives 65,535 sixtieths of a second—about 18 minutes, which is suf- 
ficient for most purposes. 

To set FRAMES at the beginning of a timing period, use 


POKE 23672 ,0:POKE 23673 ,0 
To read the value in FRAMES, use 
PEEK 23672+25G6#PEEK 23673 


This PEEK expression will give the number of frames that have gone by since 
you POKEd FRAMES. Dividing the expression by 60 gives the elapsed time in 
seconds. The final formula for time, then, is: 


PRINT (PEEK ZGG7Z2+2Z2S56"PEEK 239672) 7/60 


Timing the Computer and the User 


The first thing you might try timing is the computer. How long does it take to 
perform 100 empty loops? 


10 POKE 23672,O0:POKE 23673,0 
15 FOR t=1 TO 100:NEXT t 
20 PRINT (PEEK 23672+256XPEEK 23673) /60 


How about 25 loops? 


Of course, timing people is much more interesting than timing the computer. 
The following short games use FRAMES. 


Estimate You are asked to estimate the passage of time—from 1 to 10 seconds. 


Start counting when NOW appears on the screen; press any key when you think 
the specified time is up. 


10 LET s#INT (RND*10+1) 

1S FRINT "Estimate "s3g3" second(s)" 

20 PRINT "startingeses «s." 

29 FOR w=1 TO RNDX400: NEXT w 

30 PRINT AT 11,15: "NOW!" 

35 POKE 23672,0:FOKE 237473,0 

40 IF INKEY$="" THEN GOTO 40 

45 LET t=(PEEK 23672+2546*FPEEK 223673) /60 

50 PRINT t 

55 LET d=ABS (t-s) 

60 PRINT ("Very good" AND d<=1)+("Reasonable" AND 
d>1 AND d<=1.5)+("No good" AND d>1.5) 
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LINE NOTES 


10 Chooses the number of seconds you must estimate. 
25 Makes you wait a random amount of time before the timing begins. 
35 Sets FRAMES to OD. 


45 PEEKS at FRAMES and assigns the time to variable t. 


55 Calculates the difference between your estimate and the number of 
seconds you were supposed to count. 


60 Evaluates your performance based on how far from the target 
you were. 





Keyfind A random letter will appear on the screen. Find and press the matching 
key as quickly as possible. After 10 letters, your times and average will be 
printed on the screen. 


5 DIM all) 

10 FOR n=1 TO 10 

15 LET r=INT (RNDX24) +97 

20 POKE 23672,0:FOKE 23673,0 

25 PRINT AT 11,15;CHR® r 

30 IF CODE INKEY$<>r THEN GO TO 30 
35 LET a(n)=(PEEK 23672+256xPEEK 23473) /60 
40 LET a(11)=a(11)+a(n) 

45 NEXT n 

S50 CLS: PRINT "Times:":PRINT 

55 FOR i=1 TO 10 

60 PRINT a(i); NEXT i 

65 PRINTsPRINT "Average: "3a(il)/10 


LINE NOTES 
5 Dimensions an array to hold the 10 times, with an extra cell to hold 


the total. 
15 Chooses arandom number in the range of the letter CODEs. 


20 Sets FRAMES to 0. 

30 Waits for the correct key to be pressed. 

35 Puts the current time into the current array cell. 
40 Puts the current time into the total array cell. 
50—65 Prints the times and the average. 
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More Techniques 


JOYSTICKS 


The computer keeps track of joystick movements in the same way it keeps track 
of everything else—by numbers. 

In joystick-reading, there are three things you want to know: which stick you 
are checking, whether the fire button is being pressed, and how the stick is 
positioned. 

With the STICK function, you can check either the stick position or the fire 
button for the right or the left joystick. 

STICK is used with two numbers; the first refers to the device (1=stick 
position, 2= fire button) and the second refers to the joystick (1 = left, 2 = right). 
The STICK commands are as follows 


STICK(1,1) checks the position of the left joystick. 
STICK(1,2) checks the position of the right joystick. 
STICK(2,1) checks the fire button of the left joystick. 
STICK(2,2) checks the fire button of the right joystick 
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When you use the STICK function, the computer checks the stick and the 
device you specify and returns a number that indicates whether the button is 
being pushed or what position the stick is in. Since the STICK function repre- 
sents a number, it can be assigned a variable name. 


Fire Button 


Working with the left joystick, STICK(2,1) checks the fire button. If the expres- 
sion equals 0, then the button is not being pushed; if it equals 1, then the button 
is being pressed. 

This short routine will wait for the button (of the /eft stick) to be pressed: 


10 IF STICK(2+1)=0 THEN GO TO 10 
15 PRINT STICK (21) 


The loop in line 10 acts like the familiar INKEY$ waiting statement, with the 
program staying on that line until the button is pressed. A 1 is printed when 
the program reaches line 15 because the button is down when that line is en- 
countered. 

Using logical operators and truth-testing from Chapter 8, you can write line 
10 this way: 


10 IF NOT STICK(2:+1) THEN GO TO 10 


because the conditional expression “NOT STICK(2,1)” will be true when the 
STICK expression equals 0. 

Similarly, both of the following lines will do the same thing for the right 
joystick: 


10 IF STICK(2+2)=0 THEN GO TO 10 
10 IF NOT STICK(2Z:2) THEN GO TO 10 


It is important to note that the computer checks the joystick any and every 
time you use the STICK function—and only then. So if you are going to assign a 
variable, say for the fire button of the left joystick, this kind of construction 
won’t work: 


1O LET F=STICK(2Z +1) 
15 IF f=0 THEN GO TO 15 
20 PRINT f 
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The computer checks the fire button only when it is at line 10, which has the 
STICK expression. If you have not pressed the button by then, f is equal to 0, 
and it remains that way; the computer is forever looping on line 15 as a result. 
Instead, the routine should be written this way: 


10 LET f=STICK (2 a1? 
15 IF f=0 THEN GO TO 10 
20 PRINT f 


so the computer will repeatedly go back and check the stick again at line 10. 
Or replace line 15 as follows: 


15 IF NOT f THEN GO TO 10 


This is a particularly good use of NOT because it is so easy to read it as “‘If the 
fire button is not pressed. .. .” 
Here is another situation to avoid: 


10 IF STICK(2+2)=0 THEN GO TO 10 

15 FOR 171 TO Zit PRINT “Fire”: NEXT i 

20 PRINT STICK(2 +2) 

Run this program, releasing the fire button as soon as you press it. A 0 will be 


printed when line 20 is reached, because using the STICK expression again 
makes the computer reread the fire button. 


Joystick Position 


When a STICK expression is used with the device number 1, it is the position of 
the stick that is checked. The numerical value of the expression indicates 
in which direction the stick is being pushed. A value of 0 means the stick is up- 
right, so 


10 IF STICK(1,s1)=0 THEN GO TO 10 


will wait for the stick to be pushed. 
The values for the stick position are as follows: 


5 9 
\ | 7 
4 — 0 = ő 


71%, 
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While the arrangement may seem haphazard, it is not; the four main 
directions are values 1, 2, 4, and 8, important digits in the binary world. Each 
“corner” is the sum of the numbers on either side of it. 

The most basic application of the joystick is for moving things on the screen. 
Here is how you can apply it to a sketcher program: 


10 LET x=127:LEXT y=87 

29 PLOT x,y 

30 LET s=STICK(1,1) 

40 IF NOT s THEN GO TO 30 
S50 IF s=i THEN LET y=y+i 
60 IF s=2 THEN LET y=y-1i 
70 IF s=4 THEN LET x=x-1 
80 IF s=8 THEN LET x=x+1l 
90 GO TO 20 


Line 20 assigns the variable s to the stick position of the left joystick. When 
it is 0, the expression “NOT s” will equal 1 and the computer will loop back to 
line 20. When the stick is pushed, x or y will be changed and a new point will be 
plotted. 

Try adding statements so that diagonal lines can be drawn. The first would be: 


IF s=9 THEN LET x=x+1:LET v=ytl 


Stick-and-Button Coordination 


Although the stick has eight positions, you can read the button and stick position 
at virtually the same time and, practically speaking, have 16 possible states for a 
stick: each position with the button up and each with the button down. 

You can alter the last program so that, if you move the stick with the button 
held down, nothing will be printed, although the x and y coordinates will change. 
Then, when you release the button, the line will begin again, at a different spot 
on the screen. Add: 


29 LET f=STICK(2Z1) 
85 IF f THEN GO TO 25 


When the button is pressed, f will be equal to 1 and will be considered true in 
the IF-THEN statement at line 85. In that case, the program loops back to read 
the stick again and to change the appropriate x and y values without plotting the 
most recent position. 
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Button Race 


Since the T/S cannot read both joysticks simultaneously, you run into a problem 
when there are two players, each trying to press her button first. There is always 
an edge given to the player whose stick is read first. The solution is to read the 
sticks and, if both buttons are down, let the computer choose the winner, based 
on a random number. The following program demonstrates this routine. 

Plug in two joysticks and press both buttons at the same time. You will get a 
printout of the joystick values—one will always be 1, one will always be 0. 


10 LET f1=STICK (2,1): LET f2=STICK (2, 2) 
15 IF f1+f2=0 THEN GO TO 10 

20 IF fi+f2=2 THEN GO SUB SO+INT (RNDX2) 
25 PRINT €1,f2: PAUSE 30: GO TO 10 

30 LET #120: RETURN 

31 LET f2=0: RETURN 


LINE NOTES 


10 Reads both sticks. 


15 Loops back to read both sticks again if neither button is pressed. 


20 If f1+f2is two (that is, both buttons are down), chooses at random 
which of the two subroutines to jump to. 


30—341 Resets one of the fire-button values to 0. 





SCREEN READING 


Many times, what happens next in a program will depend on just what is on the 
screen at any given spot. You can have the computer check it for you with one of 
its screen-reading functions: SCREEN$, ATTR, or POINT. 


Using SCREEN$ 


Although SCREEN$ can be used to SAVE and LOAD screen displays, as noted 
in your user’s manual, you can also use it to find out what character is printed in 
any spot on the screen. 

The syntax of the SCREEN$ function is SCREEN$(r,c), where r and c 
indicate the row and column position you want checked. 

Enter, as a direct command, PRINT‘‘abc”’ and then enter PRINT 
SCREEN$(0,1). The computer prints a “b” because that is what appears in row 
0, column 1. (Remember, row and column numbers begin at 0.) 

Since SCREEN$ returns a string, it can be assigned a string variable name: 


LET s$=SCREENS$( rc) 
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It can also be manipulated like other strings. Since it is one character in length, 
you wouldn’t want to slice it, but it can be concatenated: 


LET c#=SCREEN$(r+c)+SCREEN$(x sy) 

You can also find out the code of the character in the designated position: 
PRINT CODE SCREENS (rec) 

And, if the character is a numeral, it can be converted to a value: 
LET n=VAL SCREEN$( roc) 


The most obvious application of the SCREEN$ function is for games— 
whether you want to know if a missile has hit a target, or perhaps if you have hit 
a dead end in a maze. The important thing is that SCREEN$ will not only tell 
you if a character space is occupied, but it will also tell you what character 
occupies it. This is important because you'll be able to determine just what 
target has been hit. 

The following program is a missile—target game that uses SCREEN$. Your 
black square travels across the top of the screen; hitting a key will make it drop 
an “eraser” from its current position. 

The eraser blots out everything in its path as it travels to the bottom of the 
screen. You will receive 1 point for each asterisk erased and 5 points for each 
period; 10 points are lost if you erase a minus sign. You have three erasers 
to drop. 


10 LET t=0O:LET try=0 

15 LET a®="."3 FOR i=1 TO 3: GO SUB 110: NEXT i 

20 LET a$="+": FOR i=1 TO 10: GO SUB 110: NEXT i 

25 LET a$="-": FOR i=i TO 5: GO SUB 110: NEXT i 

30 LET e$="@":LET r=0:LET c=0 

35 PRINT AT r,c;e$ 

40 FOR c=0 TO 31: PRINT AT O,c3e% 

45 IF INKEY$="" THEN PRINT AT O,c;" ": NEXT c:60 
TO 40 

90 LET try=try+i 

59 FOR r=1 TO 21:LET s$=SCREEN$ (r,c) 

60 IF s$<>" " THEN GO SUB 100 

65 PRINT AT r-1i,c3" "AT r,cgessNEXT r 

70 PRINT AT r-i,cg" "IF try<S THEN GO TO 30 

75 CLS: PRINT "Total points: "st 

80 STOF 

100 LET t#t+(5 AND s$=2"4+")4+(15 AND s$=".") — (10 
AND s$="-") 

105 RETURN 

110 PRINT AT INT (RND*¥15+6), INT (RNDX32) 3; a$: 
RETURN 
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LINE NOTES 


10 Initializes variables for the total score and the number of tries. 


15—25 Prints the targets on the screen at random spots. The routine, as 
written, makes use of a subroutine for picking the row and column and doing 
the printing. Each time the subroutine is executed, however, it prints a 
different character, and prints it a different number of times. 


30 The eraser is the graphic symbol on the 3 key. 
40 Begins the movement of the eraser across the top of the screen. 


45 Ifno key is pressed, erases the eraser from its current position and 
prints it in the next spot. 


50 Whenakeyis pressed, increments the “try” variable. 
55 Begins the loop for the vertical motion of the eraser (this line is reached 


when a key is hit). The computer uses SCREENS to check the position where 
the eraser Is going to be printed. 


60 If the new eraser position is not an empty space, branches to a 
subroutine. 


65 Erases the eraser from its current position and prints it in a new 
one. The program loops back to check the next space that the eraser is 
moving to. 


70 When the eraser has reached the bottom of the screen, it is erased 
and the program loops back for another round if the five tries have not all 
been taken. 


75 Prints the score. 


100 Uses the logical operators to evaluate the score increment or 
decrement. 





You can, of course, make many improvements to this basic game, slowing 
down the travel of the eraser across the screen and adding some color and sound 
effects. 

The SCREEN$ function has limitations. Although it can “read” an inverse 
video character, that character will register as its true video form. So, if an 
inverse m is in the center of the screen, SCREEN$(10,15) will return m, CODE 
109, a true video character. 

A second, more serious limitation of SCREEN$ is that it cannot read 
graphic symbols—whether they are from the graphic set or user-defined. If you 
try to check a position that is occupied by a graphic character, SCREEN$ will 
return an empty string, or a code of 0. The only exception to this is the graphic 
character on the 8 key, which is read as a space, with a code of 32. 

There are, of course, ways around these limitations—the main way being 
the use of the ATTR function. 
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The ATTR Function 


The ATTR function tells you what attributes are active in any character cell on 
the screen. For example, ATTR (10,5) will return a number signifying the 
current attributes at the tenth row, fifth column. 

The number then has to be decoded to determine just which attributes are 
active. By now you should be familiar with the composition of an attribute 
byte—and ATTR reads the appropriate spot in the attribute file to determine 
the status of FLASH, BRIGHT, INK, and PAPER. Enter, as a direct com- 
mand, PRINT FLASH 1; AT 10,15;1. Then enter PRINT ATTR (10,15). 


The 184 that the computer prints was arrived at as follows: 


FLASH on 128 
BRIGHT off 0 
PAPER white 56 (7*8) 
INK black 0 
Total 184 


So, you can rewrite the eraser program from the SCREENS$ section, using 
defined characters as the objects on the screen. If you make sure each type of 
object has different attributes, you can use ATTR to differentiate among them 
for scoring purposes. There is such a rewrite among the programs at the end of 
this book, but try doing one on your own. 


Using POINT 


Both SCREEN$ and ATTR are limited to looking at a whole character cell at a 
time. The POINT function can look at each individual pixel on the screen. The 
command, POINT(x,y), will return a 1 if the pixel at coordinates x and y is on 
(INK colored) or a 0 if the pixel is off (PAPER colored). The x and y coordi- 
nates are the normal PLOT coordinates that begin with 0,0 at the lower left of 
the screen. 

The following program demonstrates the POINT function by reading each 
pixel in a character space and telling you whether it is on or off: 


10 INPUT"Press any key"; a% 
15 PRINT a$ 

20 PRINT AT 10,0 

25 FOR y=#175 TO 168 STEP -i 
20 FOR x=0 TO 8 

25 PRINT POINT (x,y)3 

40 NEXT x: PRINT: NEXT y 
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The nested loops beginning at line 25 read the pixels in the first character 
square on the screen. If you input an A, the result on the screen will be 


O0000000 


OOOO 00 
OOOO 
Q000 
O00100 
O01090 = 0 
O00000 


© 
© 
© 
O 
O 
O 
© 
O 


If this reminds you of the enlarged character program from the previous chapter, 
you probably realize that you can alter this program to print enlarged characters. 
Make this change: 


so LF POINT( wer? THEN PRINT * "3 
37 IF NOT POINT( x+y) THEN PRINT " "5 


Since POINT(x,y) is a 1 when the pixel is on, the statement in line 30 will be 
true when the pixel is on and a square will be printed. When POINT(x,y) is 0, 
NOT POINT(x,y) is true and a space will be printed. 


Amazing POINT 


Since you can check every pixel on the screen, you can write a program to 
DRAW a maze and travel through it, looking ahead with POINT to see if you 
are running into a wall: 


10 PLOT 0,10: LET d=40 

15 FOR i=1 TO 2: FOR n=1 TO 12 

29 READ a,b: DRAW a,b: NEXT n 

25 PLOT 10,01 LET d=20: RESTORE: NEXT i 
30 DATA 20,90,9,50,30,0,0,60,d,9, 30,0 

35 DATA 0,-30,20,0,0, -40, 20,0,0,—-20, 30,0 
40 LET x=5:LET y=5 

45 PLOT x,y 

JO IF INKEY$="" THEN GO TO SO 

99 LET a®=INKEYS 

60 LET px=x:LET py=y 

65 IF at="5" THEN LET x=x~1 

70 IF a$="6" THEN LET y=y~-1 
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75 IF a@="7" THEN LET y=y+1 

80 IF a#="8" THEN LET x=x+1 

85 IF POINT(x,y) THEN GO TO 100 
90 PLOT OVER igpx,py 

95 GO TO 45 

100 BEEP .25,1 

105 LET x=px:LET y=py:GO TO 45 


LINE NOTES 


10-35 DRAWS a simple maze. Since the two lines are basically the same, 
the same DATA is used for each, beginning at a different PLOT point. The one 
segment in the middle must be of a different size for the top and bottom of 
the path, so a variable is placed in the DATA statement for it. 


40—45 Putsa dot on the screen for you to steer through the path. 
50 Waits for you to press a key. 


60 Assigns the position of the dot to variables px and py so the dot can be 
erased later. 


65-80 Assigns new values to x and y in response to the key press. 


85 If the spot indicated by the new x,y coordinate already has an INK pixel, 
which indicates that you have steered into a wall, the program branches to a 
subroutine. 


90—95 Erases the dot and loops back to print it in the new position. 


100—105 Ifyou have hit a wall, resets the x and y values to what they 
were before you pressed the cursor keys and loops back for another try. 





PROGRAM DEVELOPMENT AND POLISHING 


You know many programming techniques by now—probably enough to write 
any kind of program you can think of. Putting all the techniques together into a 
good program, however, is a technique in itself. 


Flow Charts 


While you may find yourself diving right into a program that you want to write, 
backtracking, fixing, and enhancing as you go along, it is, of course, easier to 
plan ahead. Programmers use flow charts to plan out programs, simply charting 
the “flow” of the program—what needs to be done when, where program 
branching might occur, and so on. 
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There are a number of flowchart symbols that stand for different compo- 
nents of a program; they are variously shaped boxes within which you can note 
what is going on in the program. The main symbols are these: 


PROCESSING OF 
DATA 


O 
L / 


INPUT /OUTPUT 


Lines and arrows between the symbols indicate the direction of the pro- 
gram flow. 


The following is a simple flowchart of the enlarged-character program: 


Look at byte 
of map 


MORE TECHNIQUES 195 








196 CHAPTER ELEVEN 


Planning out your program ahead of time with a flow chart or something 
similar will save a lot of time. You can literally see where you are going, in the 
case of loops, branching, and so on. Making a flow chart will also force you to 
consider the possible results at decision junctions—many beginning program- 
mers follow the flow for a “yes” answer, entirely forgetting to allow for the 
possibility of a “no.” 


Debugging 


The process of getting the kinks out of your program is known as debugging. The 
debugging process itself can be expressed in a flow chart: 


Does 
program 
no work yes 
ko ? “J 
La 


program 


The flow chart shows you that the process contains the possibility of an 
endless loop! 

When you are designing your program, try running it as soon as the core is 
designed, or, if possible, run through the subroutines separately as you write 
them. Make use of the error codes the computer provides—they are the best 
guide to what might be going wrong. 

Once all the internal workings of the program are running the way you want 
them to, the most important thing to do in debugging is to not follow the 
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program’s instructions. If you are supposed to enter a number from 1 to 10, 
enter an 11 or a letter, to see what happens. Does the program crash? Does it 
continue, but with some erroneous DATA that will crash it later? 


Error Trapping 


You can think of error trapping on two levels—at one level during the design of 
the program and at another during its use. You can write your own error trap 
routines to help you get the bugs out of your program; you can also try to 
anticipate a user’s every response and trap the wrong ones. 

While the phrase “user-friendly” is overused, the concept should be more 
widespread. If the user has put in wrong data, the program should tell him so 
and give him a chance to change it. Also, the program should give second 
chances on any lengthy data entry, displaying the data on the screen, for 
example, and allowing changes to be made. The program should always double- 
check user commands that are final, such as “erase data” and “quit program.” 


Speed and Space 


There is always more than one way to write a program, but some ways are better 
than others. Unfortunately, you usually face a choice between a program that 
runs quickly and one that uses less of the computer’s memory. 

A comparison of the two sketcher programs in the introduction to this book 
will illustrate this point. If you enter the first one, with all the IF-THENSs, using 
PRINT FREE will then return a 38342, meaning you have used 310 bytes for the 
program. (There are 38652 bytes available to start with.) The program goes 
through 100 program loops in just under 51⁄2 seconds; this means it takes about 
.05 seconds to assign new values to x and y each time. 

The second program, using the truth-testing techniques, takes much less 
space—224 bytes. But it takes a little more than 6 seconds to go through 100 
loops because of all the extra calculations required. The extra half-second may 
not sound like much, but this kind of time difference can add up very quickly. 

You will have to decide, when there is more than one way of doing things, 
which is more important—speed or space. 


CASSETTE USE 


There are a number of options available when you are saving and loading 
programs, most of which are covered adequately in your user’s manual. Here’s a 
brief review with some extra tips. 
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Simple SAVE and LOAD 


The basic SAVE and LOAD commands are straightforward, and you have 
already used them many times. 

If you have only one program on a tape, you do not need to load it by name; 
using empty quotes will load the first program that the computer hears. 

If you have stored a number of programs on one tape and did not label the 
cassette accurately, you can get a directory of what is on the tape by using: 


LOAD "xX" 


(Use a string that is definitely not the name of a program on the tape.) The 
computer will print on the screen the name of every program it encounters while 
searching for “X.” 

Using the LINE option with SAVE will make your programs RUN auto- 
matically, as soon as they are loaded. For example, SAVE “program” LINE 20 
will save the entire program, but it will begin running at line 20. 


VERIFY and MERGE 


You should get into the habit of verifying every program you save. The extra 
time it takes is well worth the assurance it gives of a correct program SAVE. 

The MERGE option can be very convenient. If you are designing a program 
that has a half dozen games in it, you can design each one separately. (This has 
the advantage of shorter SAVE/LOAD times during the design stage.) Using 
line numbers in the 1000’s for the first program, in the 2000’s for the second, and 
so on, means you can later MERGE them into one large program. 

If you have the first program already in the computer’s memory, use 


MERGE "second Program" 


to combine them. As long as the line numbers are different, nothing will be 
erased. And as long as all the line numbers in the second program are higher 
than all those in the first, the two programs will run sequentially. Merge as many 
programs as you want, and then add a menu for the user to choose from. 


Saving Displays 


If you have designed an especially attractive screen display that you wish to 
save—perhaps something you have drawn with a sketcher program, the 
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SCREENS$ option will save the data necessary for the computer to reconstruct 
the picture. The correct commands are 


SAVE "Picturename" SCREENS 
and 


LOAD "Picturename" SCREENS 


Saving Array Variables 


Another handy SAVE/LOAD routine is the DATA option. The DATA op- 
tion saves only the contents of the array named in the SAVE statement. The 
statement 


SAVE "answers" DATA a$() 


will save the contents of a$. The name in the string does not have to be the name 
of the main program; it is a name by which the array data can be retrieved. The 
parentheses after the array name are always empty. The simple array name is 
used even if you are saving a multidimensional array. Don’t use any subscripts. 
To load the DATA back in the computer, use 


LOAD "answers" DATA a$() 


It is not necessary to DIMension array space before you load in array data; 
that is taken care of automatically. Be sure that you do not have a DIM 
statement for that array in your main program, because when the computer 
encounters a DIM, it erases any information stored under that array name! 

An advantage of this SAVE option is that you can write a “shell” program, 
say for a question and answer game, and use it with many different types of 
information. 


Chaining 
Keep in mind that SAVE and LOAD commands can be given within a program. 
So, if you have three arrays to save, you can simply write a routine to do it: 


10 SAVE "answers" DATA a$() 
15 SAVE "scores" DATA s() 
20 SAVE “questions” DATA a%() 
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You can also chain LOADs, which gives you the opportunity to design a 
“title page” for your program that can be displayed while the main program is 
being loaded: 

10 REM *#This would be the title rFage* 


+ 


50 LOAD "main Program" 


When the main program is loaded, this program is erased, but the display 
remains on the screen until a command within the main program (which should 
be set up to RUN automatically) erases it. 

When the computer has found the next program to be loaded, it will ruin 
your display with the report: 


Program: main Program 


Include in your title page program a command that changes the INK color to 
match the PAPER color. Then, when the report is printed, you won’t be able to 
see it. (You may also have to place the print position in a spot that won’t ruin 
your display. ) 


12 


Annotated Programs 





Most of the programs in this chapter are much longer than those offered 
previously. Some are utility programs, but most are games that demonstrate 
applications of the programming techniques you have learned. 

The line notes for these programs are not as thorough as those for the 
example programs in other sections of the book. Instead, a general discussion of 
the program development is offered, with brief line notes that include bracketed 
numbers that refer to the chapter in which the particular technique is explained 
more fully. 

Feel free—encouraged—to enlarge, embellish, and otherwise enhance 
these programs. 


RENUMBER 


This program can be tacked on (typed in or merged from tape) to any program 
you are working on. When you run this subprogram, using the command RUN 
9010, the line numbers of your main program will be renumbered in neat 
increments of 5 (or 10, if you adjust this routine as noted below). 
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This is a useful routine for those of us who keep squeezing in extra lines as 
we go along and finally run out of room to add any further embellishments. 

Be careful: although the program lines are renumbered, the GO TO and 
GO SUB commands within the program are not. Print out your program before 
the renumbering so you can refer to it to make the necessary internal changes. 


7000 STOP 

9010 LET s®PEEK 23635+2546X*PEEK 234346 

9020 LET line=5 

9030 POKE s, INT (line/256) 

9040 POKE sti,line-256xXINT (line/256) 

9050 LET line=linet+S 

9060 LET s#s+1 

9070 IF 256*PEEK æ + PEEK (8+1) 29000 THEN STOP 
9080 IF PEEK (s-1)#13 THEN GO TO 9030 

9090 GO TO 97060 


Comments 


A BASIC program is stored in the computer’s memory as a series of numbers. 
Every program line begins with a line number that is stored in two consecutive 
bytes, and ends with an ENTER character. 

This program PEEKs through the BASIC program listing in memory and 
finds the line numbers, POKEing new numbers into those bytes. The line 
numbers are easy to find because all but the first are preceded by a byte that 
contains the number 13, the code for ENTER. The first one is easy to find 
because it is the first two bytes of the program listing. 

The only thing that might be difficult is finding the beginning of the program, 
since it is not always stored at the same address; however, since the starting 
address of the BASIC program is stored in a system variable, we can PEEK 
there to find the starting address. 
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LINE NOTES 


9000 Prevents this program being RUN when you are running your main 
program. 


9010 Finds the starting address of the program listing by PEEKing at the 
appropriate system variable. [10] 


9020—9050 The variable ‘line’ stands for the new line number. Changing 
its value in the LET statement will give you a starting line number other than 
5. The new number is POKEd into the addresses that hold the old line 
number. Then “line” is incremented by 5 for the next line number (you can 
change this to “+ 10” if you want to). [10] 


9060—9070 Increments the variable s so the computer can look at the 
next address in the program file. If the bytes hold a line number of 9000, this 
program ends so it won't renumber itself. 

9080 _ /f the address being looked at comes after a code 13, then it is the 
start of a program line, and the computer loops back to the POKEing 
routine. Otherwise, it loops back to increment s again. 





CHARACTER DESIGN 


The next program helps you design your own graphic characters. It gives you a 
large grid on which to draw your character and shows how the programmed 
character will look in its regular size; it also gives the decimal values you will 
need to POKE into the graphic map to get the figure you have designed. 

Use the cursor keys to move the asterisk around the grid. Press 9 to darken a 
square, and 0 to erase it. Pressing “f” when you are finished will make the 
computer calculate the decimal DATA needed for that figure and print the 


66.99 


character at normal size below the grid. You can then press “p” to print a copy 
of the screen, “ʻa” to adjust the grid, or “ʻe” to erase it and start again. 


10 FOR n=O TO 7: READ d 

15 POKE 65368+n,dsNEXT n 

20 DATA 255, 129, 129, 129, 129, 129, 129, 2355 
25 FOR i=1 TO S:PRINT "AAAAAAAA" ES NEXT i 
30 LET r#O: LET c#0 

35 PRINT AT 15,0; "Press 9 to fill, O to erase" 
40 PRINT "Press f when finished" 

45 PRINT: PRINT 

50 PRINT "awalter"’ "ezerase"’ "p=print" 
100 PRINT OVER is AT r,c3"k" 

105 IF INKEYS=""THEN GO TO 105 
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110 LET m$=INKEY$: BEEP .01,20 

115 IF m@="f" THEN GO TO 160 

120 IF m$="9" THEN PRINT AT r,cs "@": 
BEEP .05,-10: GO TO 100 

125 IF m#@="0" THEN PRINT AT rc "A": 
BEEP .05,50: GO TO 100 

130 LET pr=ær: LET pec 

135 LET r=r+(m$="6")— (m$="7") 

140 LET c=c+ (m$="6") —(me="5") 

143 IF c<O OR c>7 THEN LET c#pc 

150 IF r<O OR r>7 THEN LET r=pr 

155 PAUSE 3: PRINT OVER is AT pr,pc3 
"x": GO TO 100 

160 LET byte=0:DIM d(8) 

165 PRINT OVER 1; AT r,cg"k%" 

170 FOR a#171 TO 115 STEP -8 

175 LET bit=8 

180 FOR i#4 TO 60 STEF 8 

185 LET bit=bit-1 

190 IF POINT (ia) THEN LET d(byte+1)= 
d(byte +1)+2Mbit 

195 PRINT AT byte, 10;" "AT byte,10; 
d(bytet+i): NEXT i 

200 POKE 65376+byte, d(byte+1) 

205 LET byte=bytertl 

210 NEXT a 

215 PRINT AT 10,5; "B" 

220 IF INKEY$=""" THEN GO TO 220 

229 IF INKEY$="a" THEN GO TO 100 

230 IF INKEYS="e" THEN RUN 

235 IF INKEY$="p" THEN COFY 

240 GO TO 220 


Comments 


This program, besides being a useful routine in itself, offers some interesting 
applications of a number of techniques. The movement of the asterisk is the 
basic sketcher routine, constrained to an eight-by-eight grid. OVER is used so 
that you can see a black asterisk in a white square and a white asterisk in a black 
square. POINT is used, at the center of each grid square, to see whether it is 
white or black. LPRINT and RUN—commands usually used only in direct 
mode—are embedded in appropriate spots in the program. 
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LINE NOTES 


10—25 Creates the boxes for the grid and prints them on the screen. [7] 


100—150 Checks key presses for jumps to subroutines, for moving the 
asterisk around on the grid, and for filling or erasing the boxes of the grid. 
[4] [7] 


160—195 Checks the screen with POINT to see which boxes are filled in. 
(Note that line 165 erases the asterisk to avoid having it read as a filled-in 
box, since we are reading the center POINT of each box.) Calculates, in 
nested loops, the decimal value represented by a row of boxes in the grid, 
each row being a byte, with filled-in squares being 1's. [11] [10] 


200—215 POKEs the previously calculated decimal values (which were 
stored in array d) into the graphic B character map and prints the new 
character on the screen. [7] 


220—240 Waits for and acts upon any key press. The last line acts as a 
trap if you press a key other than a, e, or p. 


GRAPHIC NOTES 


25,125 Graphic A 
420 Shifted 8 graphic character 
215 GraphicB 





SOUND UTILITY 


This program makes SOUND experimentation simple: it allows you to indicate 
which register you want loaded with what value. It shows on the screen the 
registers and values you have chosen, and you can turn on the sound to hear the 
effect those specific values have on the sound channels. 

Press “c” to change a register value; input the register number and value 
when prompted. Press “p”? when you want the sound played; it will continue 
until you press another key. 
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© DIM r(14)3: LET r (8) =63 
10 FOR i#O TO 13: SOUND i,0: 
NEXT i: SOUND 7,63 
15 FOR i=0O TO 13 
20 PRINT "Register "“si,r¢iti) 
25 NEXT i 
JO PRINT AT 16,03"FPress c to change" 
35 PRINT AT 18,03; "Press p to play" 
40 IF INKEYS#<>""THEN GO TO 40 
45 IF INKEY$=""THEN GO TO 45 
90 IF INKEY$="c"THEN GO TO 60 
55 IF INKEY$="p"THEN GO TO 80 


60 INPUT "Register Value"’r,v 
65 LET r(r+1) =v 
790 PRINT AT r,14;" "AT r,16sr(r+1) 


75 GO TO 40 

80 FOR i=0O TO 13: SOUND i,r(i+i): 
NEXT i 

85 PAUSE O 

90 FOR i=ỌQỌ TO 13: SOUND 1,0: 
NEXT is SOUND 7,63 

95 GO TO 40 


Comments 


This program uses an array to store register values so that they can be easily 
loaded into the registers from within a FOR-NEXT loop. The only problem is 
that the registers begin at 0 and array subscripts begin at 1; you will notice a lot 
of (r+ 1) subscripts put in to adjust for that fact. 


LINE NOTES 


5-10 Sets up register array and loads SOUND registers with starting 
values. [9] 


15—55 Sets up display and waits for key presses. 
60—75 Puts values into proper array cells and prints them on screen. 
80—90 Plays the sound, shutting it off again when you press a key. [9] 





MUSIC SQUARES 


This short program simply gives an audiovisual response to key presses. Press 
any key to hear a tone and have a randomly colored, randomly placed square 
appear on the screen; press the space bar to clear the display and start again. 
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10 BORDER O: PAPER Ò: CLS 

15 IF INKEY$="" THEN GO TO 15 

20 IF INKEY$=" " THEN CLS: GO TO 15 

25 LET n=CODE INKEY$-85 

30 PRINT INK RND*7+1;AT RND&21,RNDSS15 "J" 
35 IF n< -60 OR n>69 THEN LET n#0 

40 BEEP .25,n 

45 IF INKEY#<>"" THEN GO TO 45 

SO GO TO 15 


Comments 


The easiest way to achieve specific notes from each key press is to make the 
BEEP pitch value dependent upon the CODE of the key that was pressed. 
Because most of the codes are outside the range of the BEEP command, an 
adjustment is made to bring most of the values into the correct range; a trap is 
used to catch any still outside the range. 


LINE NOTES 


20 Clears the screen if the space bar is pressed. 


25—30 Adjusts the code number downward and prints a square on the 
screen. [3] 


25—40 Checks to determine that the adjusted number is in the BEEP 
range and then plays the note. [9] 


GRAPHIC NOTES 





30 Shifted 8 graphic character. 


TIMES TIMER 


This program presents you with eight multiplication problems, and times you on 
how long it takes to answer. Your average time is given as a score; a penalty of 
ten seconds is added to the score (before averaging) for every wrong answer. 
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10 BORDER 2: INK 2: CLS 

15 FOR i#0 TO 21 

20 PRINT AT i,Og8"K"sAT 1,315 "%" 

29 NEXT i 

SO LET 188 "XXXKEKKKKEKEKEKKKKEREKKEREKEREKE" 

35 PRINT AT 0,O;i%: AT 2,O03;i1%; AT 21,03;1% 

40 DIM #(9): LET p20 

45 PRINT AT 1,53 "Score",8(9) 

SO PRINT AT 4,18 "Problem"; TAB 103; "Input"; TAB 
17: "Time"; TAB 24; "Answer " 

55 INK Os:FOR r#i TO 8 

60 LET a@INT(RND&104+2):3: LET be INT (RND%10+2) 

65 POKE 23672,0: POKE 23673,0 

70 PRINT AT rx2+4,3ja;"x";b 

75 INPUT c:LET t#INT( (PEEK 23672+256%PEEK 
23673) /60) 

80 PRINT TAB 12c} 

85 IF c<>akb THEN BEEP .05,+20: LET t=t+10: LET 
p=p+is PRINT TAB 17;"x"g 

90 IF c=axb THEN BEEP .02,20 

95 PRINT TAB 18;t} 

100 LET s(r)at: LET 8 (9)28(9)+s(r) 

105 PRINT AT rx2+4,25; ("right" AND c=akb)+(STRS 
(ax%b) AND c<>axkb) 

110 NEXT r 

115 PAUSE 120:CLS 

120 PRINT "Times:":FOR i#1 TO B 

125 PRINT TAB 83@8(i)sNEXT i 

130 IF p>O THEN PRINT ’"Penalties: "sp 

135 PRINT’ "Average times "3e(9)/8 


Comments 


There is nothing particularly fancy about this program, but it demonstrates some 
basics of screen bordering and formatting, and of timing a player’s reaction. It 
also makes good use of BEEP to acknowledge right and wrong answers. 

You can change the range of the random numbers in line 60 to make the 
problems easier or more difficult. 
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LINE NOTES 


10—50 Sets up the screen with a scoreboard and headings. An array is 
dimensioned to hold the times for each answer, and variable p is initialized to 
keep track of penalties. 


55—80 Prints the problem and times the player. [10] 
85-95 BEEPS for aright or wrong answer, printing it on the screen. 


100 Adds the current time into the total. [2] 


105 Uses logical expressions to determine the string to be printed. Note 
that “STR$ (a*b)” must be used in the second parenthetical expression 
because a string must be used there, not anumber. The computer can 
evaluate strings or numbers in logical expressions, but they cannot be 
mixed in one statement. [3] [8] 


120—135 Prints the score. 





GARBAGE GOBBLER 


This program is a young child’s version of a certain arcade game that has been 
cloned to death. The joystick is used to guide the gobbler around the screen; 
when all eight pieces of “garbage” have been eaten, the player is rewarded with 
a musical display. 


LET g=0 

FOR a@65368 TO 653735: READ d:POKE a,ds NEXT a 
DATA 60, 126, 239, 252, 240, 249, 127,60 
BORDER i: PAPER 7: CLS 

FOR i=1 TO 8: PRINT INK INT(RNDX7)3 AT 
INT (RND&S22), INTCRND&X32)3"%"s NEXT i 
LET r=21: LET c=0; INK QO 

BEEP .05,7-50: PRINT AT r,c3"A" 

LET pr=r: LET pec 

IF NOT STICK (1,2) THEN GO TO 40 

LET s=STICK (1,2) 

LET r=r+ (e226) + (852) + (8210) - 

(e253) —-(s21)-(s29) 

LET cmc+ (s29) + (828) +(8210)- 
(e=5) — (824) — (626) 

LET r@=r+(r<O)—(r >21) 

LET cmc+(c<0) —(c>21) 

PRINT AT pr,pe3" " 

IF SCREEN@=(r,c)="x" THEN GO SUB 100 
G0 TO 3S 
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100 PRINT AT r,c#"A" 
105 SOUND 0,2003;1,236,3137,143 
8,16:9, 16310, 16312,1003;13,2 
110 PAUSE 30: SOUND 7,63 
115 LET g=gtiz: IF g<8 THEN GO TO 40 
200 PAPER is INK 7: CLS 
205 FOR n=1 TO 27: READ p,d 
210 LET r= INT(RND&S22)3 LET c#@INT (RNDX32) 
215 PRINT AT r,c:"A": BEEP p,d 
220 PRINT AT r,c3" "st NEXT n 
2295 DATA 125,090, 2 25,0, oe Sg 2, 0 25,4, 
s 2s Op an try Syeda 
230 DATA «2550» o 29 Og an 25,2. dy Fy op Og oy m1 
250 DATA 25,00,25, 0.25, Zp ce 25 45 2 25,5 
240 DATA .25,4,.25,2,.25,0,.25,-1, 
s Bey Mey 25, Mey 25,1, og Oy oy OD 


Comments 


This program can be the basis for a much more sophisticated maze-type game. 
Of special note is the coordination of sound and graphics, and the use of 
truth-testing techniques to evaluate the position of the stick. 


LINE NOTES 


5 Initializes the variable that keeps track of how much garbage has been 
eaten. 


10—25 Designs the gobbler character and sets up the screen. [7] 


30—75 Checks stick position, reevaluates row and column values 
according to stick position, prints and erased gobbler. [8] [11] 


80 Checks to determine whether garbage is present in new position. [11] 
100—115 Provides sound effects subroutine for garbage-gobbling. [9] 
200—240 Returns to normal audiovisual display when garbage is gone. 


GRAPHIC NOTES 
33,100,215 GraphicA 





MUSICAL NAMES 


Just type in your name when prompted; then sit back and watch—and listen 
to—the show. 


ANNOTATED PROGRAMS 


FOR iO TO 13: SOUND i,QO8NEXT is 
SOUND 7,63 

BORDER i: PAPER 3: CLS 

INPUT "Type name and press ENTER" 
” LINE n$ 

IF LEN n$>1i535 THEN LET n$=n%(TO 15) 
CLS: PRINT AT 11,15-LEN n8/2) 

FOR isi TO LEN në 

PRINT n@®¢(id3s: BEEP .5,-5: NEXT i 
PAUSE 120: BORDER O: PAPER 3S: CLS 
SOUND 7,56 

FOR c#0O TO 14 STEP 2 

SOUND 8,15 

PRINT AT 19-c,c3 n$ 

READ n: SOUND O,n: PAUSE 30: SOUND 8,0 
NEXT c: CLS 

FOR r=5 TO 19 STEP 2 

SOUND 8,15 

PRINT AT r,14:n$% 

READ n: SOUND O,n 

PAUSE 15: SOUND 8,0 

NEXT rs PAUSE 90: CLS 

PAPER 7: CLS: BORDER 1 

FOR z=21 TO 11 STEP -5 

FOR iO TO 4 STEP 2 

INK is PRINT AT 27-i1,i*45n8% 

READ n: SOUND i,nm38+i/2,15 

PAUSE 30: NEXT i 

FOR i=8 TO 10: SOUND i,0: NEXT i 
NEXT z 

PAPER is INK 7 

PRINT AT 3,15-LEN n$/2;n$ 

SOUND 0,104;8,15 

PAUSE 90: SOUND 8,0: PAUSE 30 
PAPER 1: CLS: INK 7 

RESTORE: SOUND 7,62 

FOR i=O TO 7:BORDER i 

PRINT AT 21-i1,03;n%3; TAB 32-LEN n#s3n$ 
READ n: SOUND 0,n38, 15 

PAUSE 30: SOUND 8,0: NEXT i 

FOR i=O TO 7: BORDER i 

PRINT AT i1,O03n#%s; AT 1,32-LEN n$; n$ 
READ mz: SOUND O,n3 8,15 

PAUSE 30: SOUND 8,0O:NEXT i 

PRINT FLASH 1:AT 10,16-LEN n#/23;n% 


SOUND 0,209; 2,186; 4, 165:7, 56; 8,15;?, 15; 10,15 


BEEP 3,0:SOUND 7,63:STOP 

DATA 209, 186, 165, 156,139, 124,110,104 
DATA 104,110,124, 139, 156, 165, 186, 209 
DATA 209, 165, 139, 186, 156, 124, 165, 139, 110 
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Comments 


This program demonstrates the convolutions sometimes necessary to tie in 
screen formatting values, or sound register numbers, to the variable in a FOR- 
NEXT loop. There is a lot of three-channel sound; the final chord adds a BEEP 
for four notes at once. 


LINE NOTES 


5—20 Readies the sound registers and asks for the name. Slices the input 
string if it is so long that it might interfere with the display. [9] [3] 


25—35 First screen: slow-prints the name, accompanied by a beep. [3] 
100—225 Second screen: prints name in steps up the screen while the 


scale is played; names are printed straight down the screen while the scale is 
played back down. [9] 


300—355 Third screen: Prints name in different colors while chords are 
played. [9] 


400—460 Final screen: prints the name up and down the screen while 
border color changes. The final chord includes BEEP. The RESTORE 
command lets the DATA for the notes of the scale be reused. [9] 





SCRAMBLER 


This game is for two players. The first player inputs a word that will be 
scrambled by the computer; the second has to guess what it is. The guesser can 
ask for a clue at any time, and the computer will provide the next letter of the 
answer. The computer keeps track of the time it takes for the player to take a 
guess or ask for a clue. A clue is given automatically if too much time elapses, 
and the final score is based on how many clues had to be given. 


5 POKE 23692, 255 

10 INPUT "Enter a 5-10 letter word"’ a$% 

15 IF LEN a$<5 OR LEN a®>10 THEN GO TO 10 

20 PAPER 5: CLS: BORDER 1 

29 LET t®=""; LET b#=a%: LET ln®LEN a$ 

30 LET r@INT(RNDXLEN at#+1) 

35 LET t#=t#+aé(r) 

40 LET a$=a$( TO r-i)+ta$(r+1 TO) 

45 IF LEN a$>0 THEN GO TO 30 

S50 FOR t=1 TO ln-2 

55 POKE 23672,0: POKE 236473,0 

60 PRINT t$, "Guess or clue?" 

65 IF (PEEK 23672+256*PEEK 23673) /60>(1n-t) x10 
THEN FRINT, "Time’s up.":G0O TO 80 

70 IF INKEY@=""" THEN GO TO 65 

75 IF INKEY$="g" THEN GO TO 110 
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80 BEEP .05,20: PRINT, “Here’s a clue:",, 
b$( TO t) 

85 IF INKEY$<>"" THEN GO TO 85 

90 PRINT: NEXT t 

95 PRINT TAB 4: "Last chance. Take a guess. ": 
PRINT 

100 INPUT g$: IF g#=b% THEN GO TO 125 

105 PRINT “Sorry. The word was "sb: STOP 

110 INPUT "What is your guess? "39% 

115 IF g#=bs THEN GO TO 125 

120 IF g$<>b® THEN PRINT, "Wrong.": BEEP .5,~10: 
GO TO 80 

125 PRINT: PRINT "You got it.": BEEP .53,30: PRINT 
"Your score is "3s (ln-t) *10 


Comments 


This is basically an embellishment of the scrambling routine presented in Chapter 
3. The interesting thing about using that routine is that the original string is 
sliced down to nothing in the scrambling process, and there is nothing left to 
compare the player’s guesses to! The solution, of course, is to set up another 
variable to hold the unsliced version of the string. 


LINE NOTES 


5—20 Sets up the screen to scroll and asks for the target word, checking 
that it is the right length. [10] [3] 


25—45 This is the scrambling routine, with the scrambled string stored in 
t$, the unsliced string saved in b$, and the length of the original string 
stored in In. [3] 


50—90 This loop is set up so that it will end when all but the last two 
letters of the answer have been provided as clues. The program loops on 
lines 65—70 until a key is pressed or until the time is up. The time allowed is 
tied to the value of the array variable, so it decreases as more clues are 
given. [10] 


95—100 Allows a final guess if all clues have been given. 
110—125 Checks guesses and acknowledges right and wrong answers. 





ERASER 


This is the enhanced eraser game promised in the last chapter. Drop your eraser 
from the top of the screen; hearts net you 15 points, diamonds 5 points, a club 
will subtract 10 points, and hitting a spade will end the game abruptly. You have 
five drops before your total is given and you are asked if you want to play again. 
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DEF FN r(n)@INT(RNDXn) sLET t=O:LET try=0 
FOR a=65368 TO 65399 

READ d: POKE a,d: NEXT a 

DATA 0,102, 255, 255, 255, 126, 60, 24 

DATA 16,56, 124, 254, 254, 124,56,16 

DATA 56,56, 14, 214, 254, 214,146,164 

DATA 24, 460, 126, 255, 255, 219, 24, 24 

BORDER S: PAPER 6: CLS 

FOR i=1 TO 3 

PRINT BRIGHT 1; INK 23 AT FN r(21)41, FN 
r (32) 3 "A" 

NEXT i 

FOR i=1 TO 10 

PRINT INK 2; AT FN r(21)41, FN r(32)3"B" 
NEXT i 

FOR ii TO 5 

PRINT: INK O; AT FN r(21)41, FN r(32); "C" 
NEXT i 

PRINT FLASH 1; INK O; AT FN r(21)+4+1, FN 
r¢(S2)3;"D" 

LET r=Os LET c=0O: LET e¢= "a" 

PRINT AT r,c3e% 

FOR c=0 TO 31: PRINT AT O,c;e% 

IF INKEY$="" THEN PRINT AT O,c3" ": NEXT cs 
GO TO 110 

LET TRY=try+1 

FOR r=1 TO 2i 

IF SCREENS (r,c)<>" " THEN GO SUB 200 
BEEP .005,0: PRINT AT r-1,c3" "3 AT r,cpes: 
NEXT r 

PRINT AT rv~-i,ces" "s IF try<3 THEN GO TO 100 
CLS: PRINT “Total points: "st 

PRINT °’?’ "Try again? (y/n)" 

IF INKEY#=""" THEN GO TO 155 

IF INKEY$=2"y" THEN RUN 

STOP 

LET a= ATTR (r,c) 

GO TO (225 AND a=176)+(215 AND a=114)+ (220 
AND a=48)+(210 AND a=S50) 

BEEP .01,40: LET t=t+3: RETURN 

BEEP .1,20: LET t=t+15: RETURN 

BEEP .01,03 LET t=t-10:RETURN 

FLASH 1: INK 2: CLS 

FOR a=1 TO 5: FOR i=0 TO 20 

BEEP .005,i: NEXT is NEXT a 

FLASH O: INK O: CLS: GO TO 150 
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Comments 


The limitations of the SCREEN$ function are overcome by using the ATTR 
function, as discussed in Chapter 11. Although both hearts and diamonds are 
red, the hearts have a different attribute value because they are printed with 
BRIGHT; the spade is easily differentiated from the clubs because it is flashing. 

The program is further enhanced by the addition of sound for the dropping 
of the eraser, as well as a different sound for each type of target erased. 


LINE NOTES 


5—35 Defines the heart, diamond, spade, and club characters. [7] 
40—95 Prints the characters on the screen, using a defined random 
number function. [6] 

100—140 Moves the eraser across the screen, and drops it if a key is 
pressed. 

145—165 Prints the score and either ends the program or loops back to 
run it again. 

200—220 Adjusts the score according to what figure has been 
encountered. [11] 


225—240 Ends the game with sound and graphics effects if the spade 
is hit. 


GRAPHIC NOTES 


50 GraphicA 
65 Graphic B 
80 Graphic C 
95 Graphic D 
100 Shifted 3 graphic character 





NAME THAT NOTE 


This program draws a staff and clef on the screen, then places a note somewhere 
on the staff. You have three tries to name the note; if you make a successful try 
or give three wrong answers, the note will be played and identified. There are 
ten notes shown in each round. 
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BORDER O:sSOUND 7,56:;8,15 

FOR x#25 TO 220 

FOR y=59 TO 123 STEP 16 

PLOT x,y: SOUND O,y 

NEXT ys SOUND 1,xs NEXT x 

SOUND 1,0 

FOR y= 50 TO 130: SOUND O,y: PLOT 40,y: 
NEXT y 

FOR iO TO PI STEF PI/80 

SOUND 0,50%*i 

PLOT 40+10KSIN i,110+20xCOS i 

NEXT i 

FOR i=.S*FI TO 1.5*PI STEF FI/80 

SOUND 0,S50xi 

FLOT 40+20xCOS i, 70+20xSIN i 

NEXT i 

FOR i1.5*xPI TO 2.5*FI STEP PI/80 

SOUND 0, 50x*i 

PLOT 40412*COS 1,62+12*SIN i 

NEXT isSOUND 7,63 

FOR i= 632368 TO 63383 

READ d: POKE i,ds NEXT i 

DATA 0,62,127, 255, 255, 254, 124,90 

DATA 0,9,0,090,255,0,9,9 

LET n@="A"3sLET L@="B" 

FOR t=1 TO 10 

LET r=INT (RNDX9+6) 

LET odd=r/2-INT (r/2) 

IF odd THEN LET a#=("€" AND r=13)+("a" AND 
r=11)4+¢("c" AND r=9)+("e" AND r=7) 

IF NOT odd THEN LET a@=("e" AND r=14)+ ("g" 
AND r=12)+¢("b" AND r=10)4("d" AND r=8)+("f" 
AND r=6) 

IF odd THEN LET b=(53 AND r213)+(9 AND 
r=11)¢#(12 AND r=9)+(16& AND r=7) 

IF NOT odd THEN LET b=(4 AND r=14)+(7 AND 
r=l2)+(11 AND r=10)+(14 AND r=8)+(17 AND r=) 
PRINT AT r,1463n% 

PRINT AT 3,163 "?" 

LET gO 

IF INKEYS<>"" THEN GO TO 175 

IF INKEY$#=""" THEN GO TO 180 

LET g@=g+1isPRINT AT 3,163" " 

IF INKEY$<>a® AND g=1 THEN PRINT INVERSE 1; 
AT 3,163;"7" GO TO 175 

IF INKEY#<>a% AND g=2 THEN PRINT FLASH i; AT 
weno?" GO TO 175 

IF INKEY#<>a® AND g=3 THEN PRINT AT 5,163"X"s 
BEEP .2,-10: PAUSE 60 
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205 PRINT AT r,28; a8: BEEP .5,b: PAUSE 90 
210 PRINT AT r,28;" ": PAUSE 30 

215 IF odd THEN PRINT AT r,163" ":NEXT t 
220 IF NOT odd THEN PRINT AT r,16;L%sNEXT t 


Comments 


This program is noteworthy (!) because it uses sound to make the screen set-up 
more interesting. The program takes a relatively long time to draw the staff and 
clef; tying in the fine and coarse tuning values of channel A to the x and y values 
of what is being plotted on the screen leads to some strange sound effects. 

There is a problem when you try to assign a name and BEEP value for the 
randomly picked note, based on which line of the screen it appears on: you need 
either an unmanageable number of IF-THENs or the slower-running logical 
evaluations. (See Chapters 8 and 11.) A solution is to use logical evaluations in 
IF-THEN statements. Only one of lines 140 and 145 and one of lines 150 and 155 
is evaluated in any one loop, based on whether the screen line that the note is 
printed on is even- or odd-numbered. 

Another problem, with a more obvious solution, is how to redraw the line of 
the staff after a note has been erased. A line character is defined to take care of 
this, since the minus sign is too short and the underline character is placed too 
low. 


LINE NOTES 


5—30 Draws the staff. [5] [9] 
35—95 Draws the clef. [5] [9] 


100—120 Defines the characters for the note and for the line 
replacement. [7] 

135—155 Identifies the randomly picked note by name and BEEP value. A 
variable is defined to represent the evenness or oddness of the random 
number, and the evaluations are split into two statements for speed of 
processing. [2] [6] [7] [8] 


160—210 Waits for an answer, indicating by attributes of the question 
mark how many wrong answers have been given. Answers are 
acknowledged, and notes are identified and played. 


215—220 Erases the note from the staff by replacing it with either a 
space or aline. 


GRAPHIC NOTES 
120 Graphic A,B 





y 
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JOYSTICK DRAW 


Choose a background color by pressing the corresponding number, and draw 
with the joystick. Pressing the fire button will change the color of your drawing 
line; pressing the space bar will clear the screen so you can start again. 


10 
15 


INK 2: FOR i=© TO 5: PRINT 

PAPER 7: BORDER 2: CLS 

PRINT’’’*’ TAB 6; "Press color number"; TAB 
83 "for background" 

IF INKEY$="" THEN GO TO 25 

LET pS=INKEYS 

IF CODE p#<48 OR CODE p$>55 THEN GO TO 25 
LET p= VAL p$: PAPER p: CLS 

LET isO: IF isp THEN LET i#1 

LET r=O: LET c=15: LET s¢="m@" 

BEEP .1,5: PRINT INK is AT rc} s$ 

IF INKEY@=" " THEN CLS: GO TO 55 

IF STICK (2,2) THEN GO TO 140 

IF STICK (1,2) THEN GO TO 80 

GO TO 60 

LET m=STICK (1,2) 

IF m=1 THEN LET r=r-1 

IF m=2 THEN LET r=r+1 

IF m=4 THEN LET c2c-1l 

IF m=8 THEN LET c=#c+l 


105 IF m=S THEN LET c=c-i:LET r=r-il 
110 IF m=6 THEN LET c#®e-is:LleT r=rri 
115 IF m=9 THEN LET c#ct+1i:LET r=r-1 
120 IF m#10 THEN LET caæc+1i::LET r=r+1 
125 LET rere(r<dO) —(r >21) 

130 LET c#®et+(c<0O)— (e731) 

135 GO TO 55 

140 LET imiti: IF i=8 THEN LET i#0 
145 IF STICK (2,2) THEN GO TO 145 
150 GO TO 55 

Comments 


The thing that makes this program different from the other sketchers that you’ve 
worked with is that the joystick is used. What makes the joystick-reading 
different here is the necessity for checking both the stick position and the fire 
button, as well as the space bar on the keyboard, all at the same time. 
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LINE NOTES 


10—40 Sets up the screen and waits for background color to be 
chosen. [3] 

60—75 The program stays looping on these lines until the computer 
detects that the stick has moved, the button has been pressed, or the 
space bar has been pressed. 


80—135 The basic sketcher routine, with the row and column values 


based on the joystick position. [7] [11] 

140—150 Changes the INK color in response to the fire button being 
pressed; waits for the button to be released before looping back to the draw 
routine. [11] 


GRAPHIC NOTES 


50 Shifted 8 graphic character 





NOT THE END 


The book stops here, but you don’t have to—you can design an unlimited 
number of programs with the techniques that have been presented. 

Use sound and graphics for games, arrays and data storage for “‘serious”’ 
programs, and string and numeric functions for practically everything. Design 
your programs with the user in mind and spend time planning and debugging 
programs to make them run as smoothly and efficiently as possible. Don’t be 
afraid to experiment, and, above all, enjoy yourselfi—programming is the ulti- 
mate computer game. 


Appendixes 


APPENDIX A CHARACTER CODES 


A complete list of character codes is available in your user’s manual. Here, for 
your quick reference, are the ones you are most likely to use. 


NUMBERS 
Number Code Number Code 
O 48 a) 93 
1 49 6 54 
2 50 7 50 
3 51 8 56 
4 52 9 57 
LETTERS 
Letter Code Letter Code 
A 65 a 97 
B 66 b 98 
C 67 C 99 
D 68 d 100 
E 69 a 101 
F 70 f 102 


Letter Code Letter 


71 
fz 
73 
74 
75 
76 
77 
78 
73 
80 
81 
82 
83 
84 
85 
86 
87 
88 
89 
90 


NE RSEE CNG Do Voz Ae 2 
ee GE a a | 


103 
104 
105 
106 
107 
108 
109 
110 
111 
112 
113 
114 
115 
116 
TIZ 
118 
119 
120 
121 
122 
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APPENDIX B DEFINED GRAPHICS DATA 


Although you can easily design your own graphics characters with the utility 
routine in Chapter 12, you may find the data listed here a time-saver. The 
numbers that need to be POKEd into the graphic addresses to achieve these 


basic figures are listed next to each of the shapes. 


sunk 2 3Fo 
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56 56 ,16,214,254,16,16 
0,102,255 ,2755,255,126,60,24 
24 60,126 ,255,255,219,24 24 


161,56,124 254 ,254,124,56,16 


60,126,255,255,255,255,126,60 
60,66 ,129,129,129,129 66,60 
60,66,129,195 255,189, 66,60 


60 ,66,195,189,195,169 66,60 


16 ,56 ,124 ,254,16,16,16,16 
0,3,12,14,255,14,12,8 
16,16,16,254 ,124,56,16 


0,16,48,112,255,112,48,16 


128,128 ,128,128,128,128,128,128 
255 ,0,0,0,0,0,0,0 
LAAT 


Coe Oa ee 


0,255 255,255,255 255,255,255 


128 ,128,128,128,128,1 28,128 255 


255,128,128,128,128,128,128,128 
255,1,1,1,1,1,1,1 
1,1,1,1,1,1,1,255 

255 ,,128,128,128,128,128,128,255 
255,1,1,1,1,1,1,255 

255 ,129,129,129,129,129,129 129 


129,,129,129,129,129,129,129,255 


@ 


2595 ,129,129,129,129,129,129,255 


0,126 ,66 ,66 66 ,66,126,0 
0 0,60 ,36 ,36 ,60,0,0 


0 ,0,0,24 ,24,0,0,0 


$5,170,85,170,85,170,85,170 
204 51,204 51 ,204 „51 ,204,51 
204 204 51 51,204,204 51,51 
146,36,73,146,36,73,146,36 


73,36 ,146,73,36,146,73,36 


60,126,239 255,240,249 126,60 


60,66,145,135,152,143,66,60 


128,64 ,32,16,8,4,2,1 
1,2,4,8,16,32,64 128 

129 66 36,24 ,24 ,36 ,66,129 
1,3,5,9,17,32,65,255 

255 ,65,33,17,9,5,3,1 

255,130 ,132,136,144,160,192,128 
128,192,160 ,144,136,132,130,255 
1,3,7,15,31 63,127,255 
128,192,224 240,248,252 ,254 255 
255,127,63,31,15,7,3,1 


255,254 ,252 248,240 224,192,128 
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APPENDIX C SOUND 


The complete range of T/S sound is from 13/16 (coarse tune/fine tune) to 0/13, 
as noted in the table in Chapter 21 of your user’s manual. 

For a quick reference, these are the fine tune values for when the coarse 
tune register is set at 0. Values for the natural notes only (no flats or sharps) are 
listed here. 


TUNING VALUES 
Note Values in Different Octaves 
A 248 124 64 31 
B 221 110 S9 27 
C 209 104 52 26 
D 186 93 46 eo 
E 165 82 41 20 
F 156 78 39 19 
G 139 69 34 TE 


SOUND REGISTERS 


Register Register description Possible values 
0 Channel A fine tune O—255 
1 Channel A coarse tune 0—15 
2 Channel B fine tune 0-255 
3 Channe! B coarse tune 0—15 
4 Channel C fine tune O—255 
5 Channel C coarse tune 0—15 
6 Noise pitch 0—31 
7 Enable register (See below.) 
8 Channel A volume 0—15 (16 enables envelope) 
9 Channel B volume O—15 (16 enables envelope) 
10 Channel C volume O—15 (16 enables envelope) 
11 Envelope period (fine) O—255 
12 Envelope period (coarse) O—255 
13 Envelope shape 0—15 
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VALUES FOR REGISTER 7 


To enable 


Channel A tone 
Channel B tone 
Channel C tone 
Channel A noise 
Channel B noise 
Channel C noise 


Subtract from 63 


Nowdn = 


Index 


ABS, 92 

Absolute values, 92 

ACS, 96 

Address, 111 

AND, 121 

Arcs, 84—85 

Argument, 88 

Arrays 
multi-dimensional numeric, 30 
multi-dimensional string, 41 
single-dimension numeric, 22 
single-dimension string, 37 

ASN, 96 

ATN, 96 

ATTR, 191 

ATTR P, 175 

Attribute assignment, 7 

Attribute bytes, 173 

Attribute file, 176 

BEEP, 134 
values for semitones with, 138 

BIN, 112 

Binary numbers, 110 

Bits and Bytes, 110 

BRIGHT, 7,8, 173, 191 

Cassette use, 197 

Centering routine, 35 

Channels, 143 

Character generator, 110, 177 

Character cell, 7 

Character codes, 42 

Character Design program, 203 

Character map, 110, 178 

Character set, 43 

Character set pointer, 180 

CHARS, 180 

Chords, 148-149 

CHR$, 43 


Circles, 81—83 
CODE, 42 
Color 
contrasting INK, 118 
shades, 118-120 
transparent INK, 117 
Coordinates 
x and y, 64 
fixed, 63 
relative, 63 
Concatenation, 45 
Contrasting INK, 118 
COS, 95 
Data-stop, 12 
Debugging, 196 
DEF FN, 96 
Defined functions, 96—102 
Delay loop, 14 
DF SZ, 171 
Diagonal lines, 76-78 
DIM, 22 
Dimensioning, 22 
Double-byte storage, 167 
DRAW, 63 
Elements, 22 
Ellipses, 86 
Empty loop, 14 
Empty string, 52 
Enable sound, 144 
Envelope shape table, 159 
Envelopes, 155-161 
Eraser program, 213 
Error trapping, 197 
Even/odd test, 90 
EXP, 95 
Exponentiation, 93 
Exponents, 95 
Fixed coordinates, 63 





FLASH, 7, 173, 191 
Flow charts, 193 
FN, 97 
FOR-NEXT loops, 9-10 
FRAMES, 181 
FREE, 197 
Garbage Gobbler program, 210 
High-order byte, 167 
Horizontal lines, 74-76 
INK, 7, 117-120, 173, 191 
INKEY$, 52, 136 
INPUT LINE, 51 
Input prompts, 49-50 
INT, 16, 89 
Integer, 16 
Intervals, 148 
Intrinsic functions, 88 
INVERSE, 7, 179 
Joystick Draw program, 218 
Joystick, 184 
fire button, 185 
stick position, 186 
Keyboard POKEs, 168 
LEN, 34 
LN, 94 
LOAD 
loading programs, 198 
loading screen displays, 198 
loading array data, 199 
Logarithms, 94 
Logical expressions, 123—129 
Logical operators 
compound AND/OR, 122 
simple AND/OR, 121 
priorities, 123 
Low-order byte, 167 
MERGE, 198 
Modulo 32 system, 6 
Moire patterns, 70 
Multiple INPUT, 49, 52 
Multiple statements, 13 
Music Squares program, 206 
Musical Names program, 210 
Name that Note program, 215 


Noise, 161 
NOT, 129 
Number conversions, 88 
ON ERR, 59-62 
ON ERR CONTINUE, 61 
ON ERR GO TO, 60 
ON ERR RESET, 60 
OR, 121 
OVER, 7, 58 
Oversized characters, 179 
PAPER, 7, 173, 191 
PAUSE, 13-14 
PEEK, 166 
PIP, 168 
PLOT, 63, 74 
Plotting 
arcs, 84—85 
circles, 81-83 
diagonal lines, 76-78 
ellipses, 86 


horizontal and vertical lines, 74—76 


spirals, 86 
POINT, 191 
POKE, 111, 166 
Powers, 93 
PRINT AT, 6, 103-105 
Print position, 3 
Print position changers 
apostrophe, 4 
comma, 4 
PRINT AT, 6 
PRINT command, 3 
semicolon, 5 
TAB, 6 
Procrustean assignment, 38 
Radians, 71, 95 
RAM, 166 
Random numbers 
even/odd, 20 
excepting numbers in a range, 18 
generation of, 17 
pseudorandomness, 15 
unequal ranges, 19 
RANDOMIZE, 21 


READ-DATA statements, 11—12 
Registers, 143 
enable, 144 
tuning, 144 
volume, 146 
Relative coordinates, 63 
Renumber program, 201 
REPDEL, 168 
REPPER, 168 
RESTORE, 153 
RND, 16 
ROM, 166 
Roots, 93 
Rounding 
numbers, 89 
dollars and cents, 91 
SAVE 
saving programs, 198 
saving screen displays, 198 
saving array data, 199 
SCR CT. 179 
Scramble routine, 46—47 
Scrambler program, 212 
Screen reading, 188 
Screen POKEs, 170 
SCREEN$, 188, 199 
Scroll control, 170 
Search routine, 26 
SGN, 92 
SIN, 95 
Sketcher programs, 55-57, 78, 105, 126, 
132, 137 
Sort routine 
numeric, 27—30 
string, 45 
Sound 
enable registers, 144 
tuning registers, 144 
tuning values, 145 
using arrays, 154 
volume registers, 146 


SOUND, 146 
Sound Utility program, 205 
Spirals, 86 
SOR, 93 
Square roots, 93 
STICK, 184 
STR$, 35 
String prompts, 50 
String slicing, 45, 48 
Subscripts, 22 
System variables, 168 
TAB, 6 
TAN, 95 
Teletype routine, 107 
Times Timer program, 207 
Timing, 181-183 
TO (string slicing), 46 
Transparent INK, 117 
Trigonometric functions, 95—96 
Truth testing, 129 
Tuning registers, 144 
Tuning values, 145 
User-defined graphics, 109 
USR, 111 
VAL, 36 
Variables 
assignment, 10 
initialization, 10 
names, 11 
VERIFY, 198 
Vertical lines, 74—76 
Volume register, 146 
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Polish your BASIC programming skills with T/S 2068 Basics 
and Beyond. 

Designed for beginning and intermediate BASIC programmers, 
this book offers a-collection of tips and techniques that contribute 
to easier and better programming. You'll develop a working 
knowledge of the finer points of T/S BASIC— including many 
programming methods and commands not found in the 
Timex/Sinclair 2068 user's manual. 

T/S 2068 Basics and Beyond offers over 120 short 
demonstration, game, and utility programs that show creative 
BASIC programming in action. Sharon Aker includes programs 
that can 


m perform complex mathematical calculations 

m generate random numbers 

m Use trigonometric functions 

m make music and sound effects 

mga create graphics in over 100 colors 

m coordinate sound and graphics and much more. 


Both new and experienced programmers will benefit from the 
line-by-line explanations that accompany each program. And a 
helpful “Quick Tips” section can save you time, effort, and 
frustration when writing programs. 


Sharon Zardetto Aker has written numerous articles on- 
microcomputer hardware, software, and programming for 
Microcomputing, Sync, Family Computing, Softside, Info-64, and 
RUN magazines. A resident of Sussex, New Jersey, she is 
currently working on a book on Macintosh programming for Scott, 
Foresman and Company. 
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